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1. INTRODUCTION 


SCOPE 


This supplementary reference manual describes the usage of COBOL with the UNIVAC 
9400 System. It is intended for the experienced COBOL programmer who is already 
familiar with the basic information contained in the UNIVAC Fundamentals of COBOL 
Series, UP-7503 (current version). The information provided in this manual is therefore 
generally restricted to those phases of COBOL of interest to the UNIVAC 9400 COBOL 
programmer. 


For an understanding of file processing facilities available on the 9400 System, refer to 
UNIVAC 9200:11/9300 [1/9400 Systems P.I.E #1 8411 Disc File Direct Access Subsystem 
Concepts, UP-7704.1; and UNIVAC 9400 System Data Management System Programmers 
Reference, UP-7629 (current version). 


Appendix D contains an explanation of UNIVAC 9400 System COBOL disc procedures. 


SYMBOLS, RULES, AND NOTATIONS USED IN THIS MANUAL 


The various language elements that comprise a COBOL program must be written in 
formats that adhere to fixed and precise rules of presentation. Each format statement 
indicates the following information: 


@ order of presentation; 

m words that are requisite to the proper functioning of the statement; 

@ words that are optional and are included at the discretion of the user; 
@ information which must be supplied by the user: 

a elements in the statement that involve a choice by the user; 


m functions of the statement that are optional. 


In accordance with the above, the following conventions are used in this manual: 
(1) The order of presentation is indicated by the format statement itself. 


(2) All words inherent or built into the UNIVAC 9400 COBOL language are printed in 
upper case (COBOL reserved words). Appendix B lists all UNIVAC 9400 COBOL 
reserved words. 


(3) All uppercase words that are underlined are key words. Key words must be present 
when the functions of which they are a part are used. Those uppercase words not 
underlined are optional and may be included at the user’s discretion to improve 
readability (no compiler action). All uppercase words, whether underlined or not, 
are part of the COBOL language and must be spelled exactly as indicated. 
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(4) All lowercase words in italics represent generic terms to be supplied by the 
user when the functions of which they are a part are used. 


(5) Elements of a statement involving a choice, one of which must be chosen, are 
enclosed in braces ({ }). If one of the choices within the braces has no key words, 
it is a ‘‘default option’’; i.e., if none of the elements within the braces is specified, 
the action will be the same as if the default option had been specified. 


(6) Optional functions which may be included or omitted at the user’s discretion 
are enclosed in brackets ([ ]). 


(7) In some statements, certain portions may be used as many times as needed by the 
programmer. This repeatability is indicated by the ellipsis (. . .). Brackets or 
braces are used as delimiters to indicate the portion of the statement which is 
repeatable. 


1.3. UNIVAC 9400 COBOL 


Both a basic compiler and an extended compiler have been implemented for UNIVAC 
9400 COBOL. Each conforms to the specifications of the American National Standards 
Institute (ANSI), entitled American National Standard COBOL, X3.23-—1968. The ANSI 
modules and levels implemented for each are shown in Table 1-1. 


MODULE LEVEL 
BASIC EXTENDED 

















Nucleus 
Table Handling 
Sequential Access 
Random Access 
Sort 
Segmentation 


Library 


Table 1~1. UNIVAC 9400 COBOL Module/Level Implementation 


The minimum system configuration required for each compiler is: 


BASIC EXTENDED 
3 work tapes + 1 system tape or disc 3 disc work areas + 1 system disc 
1 card reader or substitute device 1 card reader or substitute device 
1 printer or substitute device 1 printer or substitute device 
1 reader 65,536 byte memory** 


32,768 byte memory* 


The basic compiler is a true subset of the extended compiler. All subsequent references 
to ‘‘the compiler’’ in this manual are applicable to both the basic and extended compilers. 
Appendix E lists the features found only in the extended compiler. 


*Compiler requires 20K 
**Compiler requires 40K 
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Those features of UNIVAC 9400 COBOL which exceed ANSI requirements are noted 
where they occur. All references in this manual to ‘‘ANSI requirements”’ refer to ANSI 
X3,28 — 1968. 


The compiler and all compiler-produced object programs normally operate on data represent- ~€& 
ed in EBCDIC (Extended Binary Coded Decimal Interchange Code) under control of the 
UNIVAC 9400 Operating System. 


A COBOL source program can be entered into the compiler from the card reader or from a 
tape or disc library file. The compiler produces, as its final output, a relocatable object 
program on tape (basic COBOL) or disc (extended COBOL). This output must be 
processed by the linker utility program (described in UNIVAC 9400 System Linkage 
Editor Programmers Reference, UP-7703 current version) for production of loadable, 
executable object code. 


1.4. COBOL 9400 COBOL COMPILER OPTIONS 


The following compiler options are available to the user and are discussed in Appendix 
G. 


(1) Ambiguous reference checking 

(2) Source listing 

(3) Object program listing 

(4) Data Division map 

(5) Procedure Division map 

(6) Cross-reference listing 

(7) Suppress precautionary diagnostics 

(8) Inhibit source sequence number check 

(9) Inhibit transfer address generation in object module (subprogram) 
(10) Inhibit generation of all Linker control cards in object modules produced by compiler 
(11) Inhibit generation of object modules 

(12) Specify source program input from tape/disc library file 

(13) Specify COPY input from tape/disc library file 

(14) Single space source listing 


(15) Suppress printer mismatch during compilation or object program execution. 
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2. GENERAL SPECIFICATIONS 


UNIVAC 9400 COBOL CHARACTER SET 
The UNIVAC 9400 COBOL character set is a 52 character subset of the UNIVAC 9400 
System character set which contains 256 characters. 
The COBOL character set consists of the following characters: 
Ole. 9 
A,B,...,Z 
Blank or space (written on coding form as 5, or a blank space) 
Period 
< Less than 
( Left parenthesis 
+ Plus sign 
$ Currency sign 
* Asterisk (if used in column 7 indicates that the entire source statement is commentary) 
) Right parenthesis 
; Semi-colon 
— Minus sign or hyphen 
» Comma 
> Greater than 


Apostrophe (alternate character for quotation mark) 
Equal sign 
Quotation mark (see apostrophe) 


Slash 


The collation sequence for these characters is given in Appendix A. 
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The UNIVAC 9400 COBOL character set may be used anywhere in a program; however, 
the additional characters, which together with the COBOL set make up the system set, 
may be used only in the following instances: 


w Anywhere in the Identification Division except in the Program-ID clause. 
mw In the NOTE statement of the Procedure Division. 


m Nonnumeric literals. 


The apostrophe is the alternate character for the quotation mark in UNIVAC 9400 
COBOL, and either one or both may be used to designate nonnumeric literals. Any 
UNIVAC 9400 computer character except the apostrophe and the quotation mark may 
be used within a nonnumeric literal. 


The following paragraphs describe the general usage of the various UNIVAC 9400 
COBOL characters. 


2.1.1. Characters Used for Words 


A COBOL word is a sequence of not more than 30 of the following characters: 


0,1,...,9 
A,B,...,Z 
— (hyphen) 


A word may neither begin nor end with a hyphen nor contain a space. 


2.1.2. Characters Used for Punctuation 

COBOL punctuation characters are: 

'  Apostrophe (alternate character for quotation mark) 

( Left parenthesis 

) Right parenthesis 
Blank or space (written on coding form as 6, or a blank space) 
Period 

» Comma 

; Semicolon 


‘* Quotation mark (see apostrophe) 


2.1.3. Characters Used in Relational Expressions 
The COBOL characters used to represent relational operators are: 
= Equals 
> Greater than 


< Less than 
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2.1.4, Characters Used in Arithmetic Operations 
The characters used in arithmetic operations are: 
+ Plus sign (addition) 
— Minus sign (subtraction) 
* Asterisk (multiplication) 
/ Slash (division) 
** Two asterisks (exponentiation) 
2.1.5. Characters Used in Editing 
The characters used in editing consist of the following: 
B_ Blank or space insertion 
0 Zero insertion 
+ Plus sign 
— Minus sign 
CR Credit 
DB Debit 
Z Zero suppression 
* Check protection 
$ Currency symbol 
‘ Comma 
Decimal point 
2.2. TYPES OF WORDS 


2.2.1. 


2.2.2. 


There are two types of words in UNIVAC 9400 COBOL: 
@ User-Supplied and 


m Reserved. 
These are described in the following paragraphs. 


User-Supplied Words 


Certain words in COBOL fall into the general classification of user-supplied words. 
These are listed and defined in Table 2-1. 


Reserved Words 


Reserved words are used for syntactical purposes and may not appear as user-defined 
words. The various types of reserved words are described in Table 2—2. Appendix B 
contains a complete list of UNIVAC 9400 COBOL reserved words. 
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Data-name 1 to 30 characters. 
Permissible characters are 0 through 9, A 
through Z, and hyphen (—). 
Must include at Jeast one alphabetic character. 
Hyphen (—) cannot be the first or last character, 
May be qualified; may not be subscripted, 
Unqualified Rules 1 through 4 for data-name. 
Data-name 
May not be qualified; may not be subscripted. 
Identifier Rules 1 through 4 for data-name. 
May be qualified and/or subscripted. 
Condition-name Rules 1 through 4 for data-name. 
Value may be established in a level-88 entry 
or ina SPECIAL«NAMES switch status 
declaration, 
Referenced only in conditions. 
Conditional Rules 1 through 4 for data-name. 
Variable 
Data-name immediately followed by one or more 
associated level-number 88 entries. 
Procedure-name Rules 1, 2, and 4 for data-name. 
Must precede each referenced paragraph. 
A procedure-name is a section-name if itis 
followed by the word SECTION. 
May be composed solely of numeric characters. 
Externalename (1) A nonnumeric titeral of 1 to 8 characters, 
pes (2) A user-Supplied label which duplicates the LFD name 


used in the job control stream to name COBOL file. 








Table 2-1. Types of User-Supplied Words (Part 1 of 2) 
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2 















SECTION: 


USER-SUPPLIED WORD RULES 


Index-name (1) Rules 1 through 4 for data-name. 





(2) Value of index-name corresponds to an occurrence 
number for a table dimension. 


(3) Initialized and modified only by the SET statement. 
Defined by the INDEXED BY clause. 


Table references using indexing are specified by 
the data-name of the table element followed by 
parentheses including an index-name for each 
table dimension. 


Storage areas assigned by compiler. 


Index Data Item (1) Rules 1 through 3 for index-name. 









Defined by USAGE IS INDEX clause. 


May be part of a group referred to in a MOVE or 
1-0 statement. 
Numeric Literal (1) A string of not more than 20 characters including 
0 through 9, sign (+ or ~), and decimal point. 





Must contain at least one and not more than 18 
digits plus a sign and a decimal point. 







May contain only one sign which must be leftmost 
character. If unsigned, literal is positive. 









May contain only one decimal point, which is 
treated as an assumed decimal point. If no 
decimal point, the literal is an integer. 


Decimal point cannot be the last character in a 
numeric literal. 








When a literal is restricted to numeric, the only 
figurative constant permitted is ZERO. 
















Nonnumeric Literal (1) A string of any of the UNIVAC 9400 System char- 
acter set excluding quotation marks and the 


apostrophe. Reserved words may be used. 


Must contain at least one and not more than 132 
characters. 


Must be enclosed within quotation marks or 
apostrophes. 










Any spaces enclosed in the quotation marks are 
part of the literal and, therefore, are part of the 
value. 


All nonnumeric literals are in the alphanumeric 
category. 


A figurative constant can be used wherever a 
nonnumeric literal appears in the format. 


Table 2—1. Types of User-Supplied Words (Part 2 of 2) 


PAGE: 
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RESERVED WORD RULES 


Key Words 


Optional 
Words 


Figurative 
Constants 


Connectives 





(1) Denote actions performed by the object program or 


the COBOL compiler. 
A word which must be present in a particular clause. 


Key words are indicated by underlining where they 
appear in the general formats. 


Used in COBOL to improve readability. 


Presence of absence does not alter handling of 
Statement during compilation or execution of 
program. 


Not underlined when shown in generalized format. 


TALLY is the name of a special register designated 
by the compiler whose implicit description is that 

of a COMPUTATIONAL integer of five digits without 
an operational sign. 


TALLY holds the count produced by the EXAMINE 
statement. 


TALLY may also be used in the PROCEDURE DIVISION 
as a data-name wherever an elementary data item of 
integral value may appear. 


ZERO, ZEROS or ZEROES generate one or more 
0's. 


SPACE or SPACES generate one or more spaces. 


HIGH-VALUE or HIGH-VALUES generate one or ~~ 
more hexadecimal FF characters (ail 1’s). This 

character has the highest value in the 9400 collating 

sequence. 


LOW-VALUE or LOW-VALUES generate one or more 
hexadecimal 00 characters (all 0’s). This character 
has the lowest value in the 9400 collating sequence. 


QUOTE or QUOTES generate one or more apostrophes 
(’), hexadecimal code 7D, QUOTE(S) cannot be used 
in place of quotation marks (’’) or an apostrophe to 
bound a non-numeric literal. 


The ALL literal generates one or more of the literals 
following the ALL. The Siteral must be either a non- 
numeric literal or a figurative constant other than the 
word ALL. When a figurative constant is used, the 
word ALL is redundant and is used for readability 
only. The ALL literal may not be used with DISPLAY, 
EXAMINE, STOP, or COPY. 


The qualifier connectives OF and IN are used 
to associate a data-name or paragraph-name with 
its qualifier. 


The fogical connectives AND, OR, OR NOT, and 
AND NOT are used to form Compound conditions 
(extended compiler only). 


A series connective is the comma which links 
two or more consecutive operands or statements. 
The use of a series connective is optional. 


Table 2-2. Types of Reserved Words 
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2.3. QUALIFICATION 


Every name used in a COBOL source program must be unique either because of different 
spelling or because of qualification. 


Definition: 


Qualification is a means of making a name within a hierarchy unique by appending a << 
prepositional phrase containing the name of a higher level of the hierarchy. It is accom- 
plished by appending one or more phrases composed of a qualifier preceded by IN or OF 

to a data-name or paragraph-name. IN and OF are logically equivalent. 


Rules: 


(1) The name associated with the highest level entry in an hierarchy is the highest level 
qualifier available for a data-name within that hierarchy. 


(2) Each qualifier must be of a successively higher level and within the same hierarchy 
as the name it qualifies. 


(3) The same name may not appear at two different levels in the same hierarchy. 


(4\ If a data-name or condition-name is assigned to more than one item, it must be 
qualified each time it is referenced. 


(5) A data-name cannot be subscripted when it is being used as a qualifier. 
(6) A paragraph-name must not be duplicated within a section. 


(7) Only a section-name can qualify a paragraph-name; the word SECTION must not 
appear. 


(8) A paragraph-name need not be qualified when referred to from within the same 
section. 


(9) A name may be qualified even though it does not require qualification. 


(10) Level indicator names and section-names must be unique in themselves as they 
cannot be qualified. 


(11) A data name being qualified may be subscripted or indexed. The subscripts/indices Y 
must appear to the right of the last qualifier name. 


Example: 


N 


OF 
data-name-1 | data-name-2 | .. i (sub-1 [: sub-2 [, sub-3 1] | A 
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2.4. SUBSCRIPTING AND INDEXING 
Definition: 


Subscripting and indexing are techniques used to refer to individual table elements 
within a table of like elements that have not been assigned individual data-names. 


Rules: 
(1) Up to three levels of subscripting or indexing are permitted. 
(2) Subscripted or indexed data-names may not be used as qualifiers. 


(3) When condition-names are assigned to items requiring subscripting or indexing, 
these condition-names must be subscripted or indexed when referenced. 


(4) Relative indexing (index-name + integer) is permitted. 
(5) Table handling is discussed in Section 8. 


2.5. THE CODING FORM 


Figure 2—1 shows the layout of the COBOL programming form. On this form the program- 
mer enters all information needed by the COBOL compiler, observing the rules of format 
and content defined in this manual. Each line of written information represents the infor- 
mation to be entered into one 80-column punched card. Table 2—3 explains the several 
divisions of the form. 


UNIVAC 
Shasta Se’ snana nidwn CoabSna tion Cc o B o L 72 80 
PROGRAMMING FORM PROGRAM HD. LL 2 1 a | 
PROGRAM PROGRAMMER DATE PAGE OF. PAGES 






















CONTINUATION 

SEQUENCE | 

NUMBER IDENTIFICATION 
1 & 12 80 
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Figure 2-1. The COBOL Programming Form 
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he COLUMNS DESIGNATION 


SEQUENCE NUMBER 


CONTINUATION 


TEXT 


: 


73-80 IDENTIFICATION 
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SECTION: 


CONTENTS 


A numeric entry, used only by the programmer (not the 
COBOL processor) to establish a sequence among the 
various lines of coding (optional). 


A hyphen (-) is used when an entry extending past one 
noncomment line has a break occurring in the middle of 
a word. The hyphen is written in column 7 of the next 
contiguous line on which the word is completed. A word ~< 
may be interrupted in any column, the rest of the line 
space filled, and completed on the next line. If the 
continued line contains a nonnumeric literal without a 
closing quotation mark, the first nonblank character in 
Area B of the continuation line must be a quotation 
mark, and the continuation starts with the character 
immediately after that quotation mark. 


An asterisk (*) in column 7 signifies a comment line 
which will be printed but ignored by the compiler. 

A comment may appear anywhere in the program and 
can contain any printable combination of characters 
including reserved words, If a comment entry extending 
past one line has a break occurring in the middle of a 
word, the continuation fine must contain an asterisk in 
column 7. (The hyphen is only used for noncomment 
continuation lines.) 


Ail COBOL-formatted information, in the form of names, 
statements, information, instructions, etc., that is to 
be compiled into the object program. 


Note that two left-margin limits designated ‘‘A'’ and 
“‘B’’ are shown. These are needed for program alignment. 
Major definitive names are begun at margin A (column 8). 
Margin B (column 12) is used for subordinate items and 
for continuations of entries from the last preceding line. 





Card deck information (optional). 


Table 2-3, Programming Form Column Usage 
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3. IDENTIFICATION DIVISION 


GENERAL 


The IDENTIFICATION DIVISION identifies or labels the source program and provides 
other pertinent information concerning the program. All information given in this division 
is listed by the printer during compilation; however, only the PROGRAM-ID clause will 
affect the object program. 


Format: 
IDENTIFICATION DIVISION. 


PROGRAM-ID. program-name. 
(AUTHOR. [comment-entry]. . .] 


LINSTALLATION. [comment-entry]. . .] 


[DATE-WRITTEN. [comment-entry]. . .] 
[DATE-—COMPILED. [comment-entry]. . .] 
[SECURITY. [comment-entry]. . .] 
[REMARKS. [comment-entry]. . .] 


Rules: 


(1) IDENTIFICATION DIVISION must be present in all source programs. 


(2) PROGRAM-ID must always be present as the first paragraph of the IDENTIFICA- 
TION DIVISION. Program-name may consist of 1 to 30 alphabetic or numeric 
characters, the first character being alphabetic. The sequence formed by the 
first six characters must be unique since it will identify the source program, 
object program elements, and associated documents. Hyphens within the first 
6 characters are removed by the compiler due to 9400 System naming conventions. 


>~<~ 
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(3) 
(4) 
(S) 
(6) 


(7) 
(8) 
(9) 
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If the program name is not supplied or not accepted because of an error, the compiler 
automatically supplies the program name COBOBJ. 


AUTHOR is for documentation only. 

INSTALLATION is for documentation only. 

DATE-WRITTEN is for documentation only. 

DATE-COMPILED is for documentation only. Date of compilation appears on 
listing regardless of whether this paragraph is present. Comment-entry is printed 
when this paragraph is present. 

SECURITY is for documentation only. 


REMARKS is for documentation only. 


A comment entry can consist of any printable combination of characters including 
reserved words. 
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4. ENVIRONMENT DIVISION 


GENERAL 


The Environment Division specifies those elements of the COBOL program which depend 
upon the physical aspects of the UNIVAC 9400 System. 


Format: 


ENVIRONMENT DIVISION. 

CONFIGURATION SECTION. 

SOURCE-COMPUTER. UNIVAC-9400. 

OBJECT-COMPUTER. UNIVAC-9400 
WORDS 

weno SIZE integer | chakacrens| i , SEGMENT-LIMIT IS priority-number |. ~€ 
MODULES 





LSPECIAL-NAMES. entry.| 
INPUT-OUTPUT SECTION. 
FILE-CONTROL. fentry. | 
[l-O-CONTROL. entry. | 


Rules: 


(1) The Environment Division must be present in all source programs. It may have 
to be rewritten when a program is to be compiled or executed on a different computer 
configuration. 


(2) Section and paragraph headers are required when their associated entries are present. 


CONFIGURATION SECTION 
Definition: 


The Configuration Section specifies the characteristics of the source and object computers 
and relates implementor-names to user-names. 


Format: 


CONFIGURATION SECTION. 
SOURCE-COMPUTER. entry. 
OBJECT-COMPUTER. entry. 
[SPECIAL-NAMES. entry.] 
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SOURCE-COMPUTER 

Function: 

To name the computer that will compile the source program. 
Format: 

SOURCE-COMPUTER. UNIVAC-9400. 

Rule: 


The SOURCE-COMPUTER entry is for documentation only and has no effect on the 
object program. 


OBJECT-COMPUTER 
Function: 


To specify the computer that will execute the object program and its memory size. 


Format: 


OBJECT-COMPUTER. UNIVAC-9400 
WORDS 

MEMORY SIZE integer <CHARACTERS [, SEGMENT-LIMIT IS priority-number }. 
MODULES 


Rules: 


(1) The OBJECT-COMPUTER entry has no effect on the object program unless 
the SEGMENT-LIMIT clause is specified. 


(2) MEMORY SIZE is an optional clause defining memory as an integer number 
(no sign, comma, or decimal point permitted) of WORDS, CHARACTERS, or 
MODULES. The equivalent number of bytes for each is as follows: 


m CHARACTER = 1 byte 
m WORD = 4 bytes 


= MODULE = 16,384 bytes 


(3) The SEGMENT-LIMIT priority number must be an integer ranging in value 
from 1 through 49. 


(4) When the SEGMENT-LIMIT clause is specified, only those sections having 
priority-numbers from 0 up to, but not including, the priority number 
designated as the limit, are.considered as part of the fixed permanent 
segment. 


(5) Sections having priority numbers from the SEGMENT-LIMIT through 49 are 
considered as fixed overlayable segments. 


(6) When the SEGMENT-LIMIT clause is omitted, all sections having priority 
numbers from 0 through 49 are considered as belonging to the fixed permanent 
segment. 


(7) The SEGMENT-LIMIT clause is available only in the extended compiler. In 
the basic compiler, an implicit SEGMENT-LIMIT of 50 is always in effect. 
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4.2.3. SPECIAL-NAMES 
Function: 


Provides a method of relating implementor-names to useresupplied mnemonic-names. 


Format: 


SPECIAL-NAMES. 

[CURRENCY SIGN IS Jiteral!| 
[DECIMAL-POINT IS COMMA] 
LSYSCOM IS mnemonic-name-1| 
[SYSDATE IS mnemonic-name-2] 
[SYSTIME 1S mnemonic-name-3| 
[SYSCONSOLE |S mnemonic-name-4] 
[SYSCHAN-t IS mnemonic-name-5] 
[SYSLST IS mnemonic-name-7 ] 


SYSERRJ-m] 
sON STATUS IS condition-name-3 [,OFF STATUS IS samy 
(OFF STATUS IS condition-name-4 [,ON STATUS IS condition-name-3] 
SYSSWCH[-n] 


Smromicnome7 SH STATUS IS condition-name-5 
— ,OFF STATUS IS condition-name-6 
{,OFF STATUS IS condition-name-6] 
[,ON STATUS IS condition-name-5] 


ON STATUS IS condition-name-7_ [,QEF STATUS IS condition-name-8} 
OFF STATUS IS condition-name-8 [,ON STATUS IS condition-name-7] 





NOTES: t= any digit 4 through 15 
m = any digit 0 through 15 


n= any digit 0 through 7 


Rules: 


(1) A comma or semicolon may separate each entry, and a period must follow the 
last entry. Each entry must begin on a new line. 


(2) The CURRENCY clause literal is used in the PICTURE clause to represent the 
currency symbol, Absence of this clause specifies that $ is the currency symbol. 
The literal must be a nonnumeric literal consisting of one character from the 
COBOL character set and must not be one of the following characters. 


m Digits: 0 through 9 
@ Alphabetic characters: A, B, C, D,.P, R, S, V, X, Z, or space 


m Special characters: *,+ —.;()" 
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(3) The DECIMAL-POINT IS COMMA clause causes the functions of the decimal 
point and the comma to be interchanged in PICTURE clause character strings 
and in numeric literals. 


Examples: 


SPECIAL-NAMES. CURRENCY SIGN IS 'F' DECIMAL-POINT IS COMMA. 





Source PICTURE | Source Data Receiving Field PICTURE] Receiving Field Result 


9(6)V99 00003232 FFFFFF,99 BEF 32,32 
9(5)V99 1234567 F#*,**# 99 F12.345,67 
9(9)V9(4) 0000098211289 | 2(3).ZZ9,9(4) $B9.821,1289 


(4) SYSCOM permits accessing the communications region in the preamble of the 
job in which the object program is being executed via user-supplied mnemonic- 
name-1. See UNIVAC 9400 System Supervisor Programmers Reference, UP-7689 
(current version) for an explanation of data, 


(S) SYSDATE permits access to current date via the user-supplied mnemonic-name-2. 
Mnemonic-name-2 may not appear in a DISPLAY statement. Date may be set or 
changed in the job control stream. 


(6) SYSTIME permits access to time-of-day via a mnemonic-name-3. Mnemonic- 
name-3 may not appear in DISPLAY statement. 


(7) SYSCONSOLE permits access to the console typewriter (using ACCEPT or 
DISPLAY statement) via mnemonic-name-4, 


(8) SYSCHAN-t equates a particular channel (t) on the printer loop to mnemonic- 
name-5. Mnemonic-name-5 may appear only in a WRITE statement. SYSCHAN 9 
and 15 are normally used for form overflow and top-of-page, respectively. 


(9) SYSERR[-m] permits access to system error codes. The status of a particular error 
(m) or the presence of any error can be checked with the ON/OFF STATUS option. 
SYSERR[-m] is a feature of the extended compiler, random access module. 
Condition-names in ON/OFF STATUS phrases are defined and equated with ON 
or OFF as required by the compiler and should not be defined elsewhere in the 
COBOL program. 


(10) SYSSWCH and its various options permit the programmer to access all or part 
of the User Program Switch Indicator (UPSI) byte, The eight bits in the UPSI 
byte (bits 0 through 7) constitute a set of eight programmable software switches, 
SYSSWCH-0 through SYSSWCH-7. The status of these switches can be set to ON 
or OFF, altered, or interrogated as required. A switch containing a 1 bit is ON; 
a 0 bit is OFF. The following examples show the various ways of using SYSSWCH. 
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To set or change the contents of SYSSWCH, the DISPLAY verb may be used 
as follows: 


ENVIRONMENT DIVISION. 

SPECIAL-NAMES. 
SYSSWCH IS SWITCH 
SYSSWCH-3 IS SWITCH-3. 

PROCEDURE DIVISION. 


DISPLAY 00010001 UPON SWITCH. SYSSWCH will now contain 00010001. 


DISPLAY 1 UPON SWITCH-3. SYSSWCH-3 will now contain 1; 
the other switches remain unchanged, 


DISPLAY identifier UPON SWITCH. The eight switches in SYSSWCH (0 
through 7) are set ON or OFF, depending 
on the contents of the 8-character 
identifier. 


NOTE: Any character other than a hexadecimal FO will set a switch to ON. 


An individual switch can be interrogated by using condition-name in the 
ON/OFF STATUS option. For instance, in the following example control 
will be transferred to procedure-name-l if switch 5 is ON. 


ENVIRONMENT DIVISION. 
SPECIAL-NAMES. 
SYSSWCH-5 ON STATUS IS FIVON, OFF STATUS IS FIVOFF. 


PROCEDURE DIVISION. 


IF FIVON GO TO procedure-name-1. 
In essence, SYSSWCH-5 is a conditional variable with the condition-names 


FIVON and FIVOFF which are similar to level-88 entries. 


The condition-names FIVON and FIVOFF are defined and equated with 

ON and OFF, respectively, by the COBOL compiler and must not be defined 
elsewhere in the COBOL program. The compiler uses the hexadecimal 
characters FO and F1, respectively, to represent the OFF and ON status 

of a switch. 


The entire UPSI byte may be interrogated by use of the ACCEPT verb. This 

is shown in the following example where procedure-name-1 will be PERFORMed 
if the SYSSWCH-2, SYSSWCH-4, and SYSSWCH-6 switches are ON and the others 
are OFF. 


ENVIRONMENT DIVISION. 
SPECIAL-NAMES. 

SYSSWCH IS mnemonic-name-l. 
DATA DIVISION. 

identifier PICTURE X(8). 
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PROCEDURE DIVISION. 


ACCEPT identifier FROM mnemonic-name-l. = 


IF identifier = 00101010 PERFORM procedure-name-l. 


(d) Another way to interrogate switches is: 
SPECIAL-NAMES. 
SYSSWCH ON STATUS IS OK, OFF STATUS IS NIX. 


PROCEDURE DIVISION. 


IF OK GO TO procedure-name-l. 


In this example, if any switch is set to 1 the program will GO TO procedure- 
name-l. 


(e) The mnemonic-name option allows the user to equate his mnemonic-name with 
the implementor-name SYSSWCH[-n|. For instance: 


SPECIAL-NAMES. 
SYSSWCH IS MYSWITCH, ON STATUS IS MYSWITCHON. 
or 


SYSSWCH-4 IS TAKETAX, ON STATUS IS LOFICA; OFF STATUS IS EQFICA. 


The mnemonic-name option is for use with the ACCEPT or DISPLAY verbs 
only. 


(f) The UPSI switches can also be accessed by the following job control 
statements: 


m SET statement — used to set switches ON or OFF (1 or 0). 


a SKIP statement — used to conditionally bypass control statements. If 
the UPSI switch settings match the bit pattern specified in the SKIP 
statement, the specified number of statements will be skipped. 


The format and usage of these statements are shown in the UNIVAC 9400 
System Job Control Programmers Reference, UP-7585 (current version), 


(11) Table 4—1 shows how SPECIAL-NAMES are handled by the compiler. Note that 
if the PICTURE clause is other than shown in the IMPLIED DESCRIPTION 
column in the table, the rules for the MOVE statement determine the storing 
of the result. The effect is that of a MOVE in which the sending item is 
described as shown in the STORED AS column and the receiving item description 
is that supplied by the user for identifier when ACCEPTing. The sending 
and receiving fields are reversed when DISPLAYing. 


(12) SYSLST permits access to the printer by way of mnemonic-name-7 for DISPLAY 
functions. 
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USABLE WITH 
SPECIAL-NAME STORED AS ACCEPT | DISPLAY FORMAT 
SYSCOM 12 YES YES 12 EBCDIC PIC X(12) 
alphanumeric characters 
characters 
SYSDATE 6 YES YYMMDD PIC 9(6) Current Day 
numeric 
characters 
SYSTIME 8 numeric YES hhmmoo00 PIC 9(8) Time Of Day 
characters 


SYSCONSOLE variable YES YES For DISPLAY PIC X(n) Typewriter Console 
length alpha- 59 char/line, 
numeric . 
characters For ACCEPT: 
60 char. max. 


SYSCHAN-t@2) not 
applicable 
SYSERR[-m] 


SYSSWCH 8 YES 8 EBCDIC PIC X(8) 
alphanumeric characters 
characters 
SY SSWCHe-n J YES 1 EBCDIC PIC X 
alphanumeric character 
character 
SYSLST variable YES 132 char/tine}| PIC X (n) 
length 
alphanumeric 
characters 
ON STATUS() | not not 
applicable applicable applicable To interrogate user program 
switch indicators (UPSI) for 
ON or OFF condition 


OFF STATUS not not not 
® applicable applicable applicable 


NOTES: 
Can be used only in conditional variable tests. 
Can be used only in ADVANCING clause of WRITE statement. 
See 4.2.3, rule 11. 












IMPLIED DESCRIPTION 
FOR ACCEPT OR 
DISPLAY (3) 













EXPLANATION 






See Supervisor manual, UP-7689 










not 
applicable 


To assign name to printer loop 


applicable channe} 






















not 
applicable 


Refer to Appendix D 





applicable 





To call or change UPSI bits 





To change UPSI bits individually 






Printer with LFD name of SYSLST| 
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INPUT-OUTPUT SECTION 
Definition: 


This section of the Environment Division is used to specify the input/output media for 
the files used by the source program and to provide information needed for most efficient 
transmission of data between this media and the object program. 


Format: 


INPUT-OUTPUT SECTION. 
FILE-CONTROL. {entry.\. . 
{1-O CONTROL. entry: | 


FILE-CONTROL 


Function: 


To name each file, identify the hardware medium which contains it, permit specific 
hardware assignments for the program, and specify alternate input/output areas. 
The clauses following the SELECT and ASSIGN statements under FILE CONTROL 
may be specified in any order. 


Format: 


FILE-CONTROL. SELECT [OPTIONAL] file-name 


ASSIGN TO [external-name|linteger-1] implementor-name-1[OR implementor-name-2] 


REEL 
FOR MULTIPLE sun 
———— UNIT 


febered AREA 
RESERVE | near VAL TERNATE | 1] 
ae AREAS 





THRU 


FILE-LIMIT IS pa es 
VEILED Mit -LIMITS ARE ; literal-1 } 


l 

E eaieams yal RU aes ] oe 
literal-3 literal-4 

[ 


iene 
literal-2 


RA 
| ACCESS MODE 1/77" OPN | 


SEQUENTIAL 
, PROCESSING MODE IS SEQUENTIAL] 
RELATIVE 
DIRECT 
, ORGANIZATION IS SEQUENTIAL 
INDEXED 


{ACTUAL KEY |$ data-name-5 ] 
RELATIVE KEY ae 

[SYMBOLIC KEY IS data-name-7] 

L RECORD KEY 18 data-name-8]. } 
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Rules: 


(1) 


(2) 


(3) 


(4) 


_G) 


The comma or semicolon may separate each entry, and a period must follow 
the last entry. 


SELECT clause must be specified for the following: 


m All files which are the subject of an FD or SD must also be the subject 
of a SELECT. 


m A SELECT clause must be supplied for a RERUN (external-name operand) 
for which no FD or SD is supplied. 


g The key word OPTIONAL is required for files that are not necessarily present 
each time the object program is run. The status of the OPTIONAL file at run 
time is determined by the job control stream. The file must be opened in the 
program. If the file is not present in the job stream, control takes the AT END 
path on the first READ statement. The OPTIONAL key word can be applied to 
INPUT files only. 


The ASSIGN clause designates a particular hardware device, or class of devices, 

to which a specific file is ASSIGNed. External-name is a nonnumeric literal (1 to 

8 characters) which is associated with a file. This is the name used in the job 
control stream to assign devices to the file (using the // LFD card; see UNIVAC 
9400 System Job Control For Disc Systems Programmers Reference, UP-7585 

(current version)). The external name must be unique within a job. If external-name 
is omitted, the first eight characters of file-name are assumed for external-name. 
Integer-1 serves as documentation only, referring to the number of devices associated 
with the file. UNIVAC 9400 COBOL assigns the following implementor-names: 


DEVICE IMPLEMENTOR-NAME 
51-column card reader CARD-READER-51 
66-column card reader CARD-READER-66 
80-column card reader CARD-READER 
card punch CARD-PUNCH 
line printer PRINTER 
disc (nonspecific) DISC (DISC and DISC-8411 

are equivalent) 
8411 disc DISC-8411 
8414 (disc) DISC-8414 
UNISERVO VI-C TAPE-6 
all other tapes TAPE 


The implementor-name, DISC, specifies an assignment to the 8411 disc. Because 
of track size differences, the user must insure that the proper implementor-name is 
used when ASSIGNing discs. 


The MULTIPLE clause, when present, specifies that the file exists on more than 
one volume. This clause is accepted for documentation purposes only, since 
the actual function is provided via the job control stream. 


The RESERVE clause indicates the number of additional I/O areas desired. 
The NO option causes no additional I/O areas to be reserved. The integer-2 
option reserves one additional I/O area. Integer-2 must be a 1; if not and the 
word NO is not specified, a warning diagnostic will be issued. Omission of 
this clause may result in the allocation of one additional I/O area as indicated 
in the following chart: 
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DEVICE 


ORGANIZATION 
SEQUENTIAL 1 
(or omitted) 












NO. OF ADDITIONAL 











I/O AREAS RESERVE ae 
ALLOCATED IF INTEGER 
CLAUSE NOT SPECIFIED ALLOWED 

























ORGANIZATION 

RELATIVE | NO 
DIRECT 

INDEXED 


(6) FILE-LIMIT clause serves as documentation only. 


(7) ACCESS MODE specifies the manner in which the records of a file are read 
and/or written. Random access mode is an extended compiler feature. Absence 
of this clause results in assumption of sequential access. 


(8) PROCESSING MODE clause is for documentation only. Sequential processing 
is always assumed, regardless of the absence or presence of this clause. 


(9) The ORGANIZATION clause designates the physical structure of the file. 
Sequential organization is assumed if the clause is omitted. This clause is 
> an extension to American National Standard COBOL. 


(10) ACTUAL KEY data-name-5 is used with direct and relative file organizations. 
When used in conjunction with a relative file, the location associated with 
data-name-5 contains a relative record number (i.e, record 1, 2, 3, ...). When 
used in conjunction with a direct file, the location associated with data-name-5 
contains a file relative track address. For direct organization files, SYMBOLIC 
> KEY, is used in conjunction with ACTUAL KEY. Data-name-5 must be defined 
as an unsigned integer according to the rules for numeric items. 


For compatibility with 9300 COBOL, ACTUAL KEY may be specified in place 
of SYMBOLIC KEY when used with indexed file organizations. 


(11) SYMBOLIC KEY data-name-7 is used with direct and indexed file organizations 

to supply the record identification. For indexed-sequential files, the information 

associated with the RECORD KEY clause must be identical to the information 

associated with the SYMBOLIC KEY clause. Data-name-7 must be described as 

an alphabetic, alphanumeric, or a numeric (display) item with a length not 

greater than 255 characters (may be numeric computational if used with an = 
= indexed file). This clause is an extension to American National Standard 

COBOL. 
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(12) RELATIVE KEY data-name-6 is used with relative organization files to «+ 
supply the physical position of a record with respect to the beginning of 
the file. Records in a relative organization file are addressed as record 
1, 2, 3, and so on. As noted in Rule (10), the ACTUAL KEY clause may 
be substituted for the RELATIVE KEY clause. Data-name-6 must be defined 


as an unsigned numeric integer according to the rules for numeric items. This 
clause is an extension to American National Standard COBOL. 


(13) RECORD KEY data-name-8 is used for indexed-organized files to supply the 
record identification field. Data-name-8 must be described as alphabetic, 
alphanumeric, or numeric item consisting of 3 to 255 characters. If data-name-8 
is defined as numeric computational, it must contain at least 4 digits (3 bytes). 
This clause is an extension to American National Standard COBOL. 


A detailed explanation of the various keys and types of file organization is given in 
Appendix D. 


I-O-CONTROL 

Function: 

To specify the following: 

@ input/output techniques, 

® memory area shared by various files, 

w location of each file on multiple-file reel, and 


@ intervals at which rerun is to be established. 


Format: 


|-O-CONTROL. 
; RERUN ON external-name 
EVERY integer-1 RECORDS OF file-name-! [, file-name-2||.. . 


|; SAME[ RECORD] AREA FOR file-name-3 |, file-name-4}...J... 
SORT 

j MULTIPLE FILE TAPE CONTAINS frle-name-5 

| 


POSITION integer-2\[, file-name-6| POSITION integer-3]]. : | ate 


APPLY RESTRICTED SEARCH oF J ALL ; 


integer-4 
TRACKS ON file-name-7 |, file-name-n|... 
[APPLY VERIFY ON file-name-8 |, file-name-n|. +]... 


file-name-9 |, file-name-10\ +++ U 
[ apeLy BLOCK-COUNT on | TAPES t]. .: 


[APPLY MASTER-INDEX ON file-name-I1 |, file-name-12|) + ]--- 
[APPLY CYLINDER-INDEX AREA OF integer-5 INDICES ON file-name-13 
[, file-name-14|- + -]--- 
[APPLY CYLINDER-OVERFLOW AREA OF integer-6 PERCENT ON file-name-15 


|, ffle-name-16\> + +]: 
[ APPLY EXTENDED-INSERTION AREA ON file-name-17 |, file-name-18)- -j. os 
[ APPLY FILE-PREPARATION ON file-name-19 !. file-name-20|- - J. on 


FOR BLOCK-LENGTH-CHECK i 
OF integer CHARACTERS ) 








[ APPLY ASCII [with BUFFER-OFFSET | 
ON file-name-21 (, filename-22} sles, 
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The comma or semicolon may separate each.entry, and a period must follow the 
last entry. 


RERUN specifies that checkpoint records are to be written on the disc or tape 
unit specified by external-name. A checkpoint record is the recording of the 
status of the computer at a given point during the execution of the object pro- 
gram. All the information required to restart the program at that point is contain- 
ed in the checkpoint record. These records will be written whenever integer-l 
records occur for file-name-1. File-name-1, file-name-2 ... can appear in only 
one RERUN statement; external-name can appear in any number of RERUN 
statements. The allowable range of integer-1 is 1 to 9,999,999, 


SAME AREA specifies that two or more files are to use the same memory area 
during processing. When the key word RECORD is omitted, the area being shared 
includes all storage areas assigned to the files; therefore, only one file may be 
OPEN at a time. If RECORD is specified, any number of files may use the same 
storage area for processing the current logical record (the record format of 

such files must not conflict). The SAME RECORD AREA clause should be 

used only when necessary as it reduces efficiency. 


If the SAME SORT AREA clause is used, at least one of the file-names must be 
an SD. Storage area assigned to files that are not sort files will be allocated in 
the sort file area if they appear in this clause. These files must not be OPEN 
during the execution of a SORT. 


Files that appear in a SAME AREA and a SAME SORT AREA clause share the 
same space within the sort file area. If any nonsort file is mentioned in both 
clauses, all files in the SAME AREA clause must appear in the SAME SORT 
AREA clause. 


ee 


The MULTIPLE FILE clause is for documentation only. This feature is supported 
by Job Control (see Appendix I). 


APPLY RESTRICTED SEARCH is used with direct organization disc files to 
permit searching for a record through ALL tracks or integer-4 tracks on file-name-7. 
When a record cannot be located for a READ command, the INVALID KEY option 
will be executed. If this clause is omitted, the ALL option is assumed. The 
allowable range of integer-4 is 1 to 254. 


The APPLY VERIFY clause requests verification (READ after WRITE) of disc 
records after they have been written. Absence of this clause results in no veri- 
fication of records written. 


The APPLY BLOCK-COUNT causes a three-byte block number to be inserted at 
the beginning of each block on tape for each file-name designated. If the TAPES 
option is specified, all tape files present are affected. This clause must be 
present for all input files which contain a BLOCK-COUNT. 


The APPLY FILE-PREPARATION clause indicates that the tracks allocated 

to a relative or direct organized file are to be recorded with initializing data 

prior to creation of a file. The track initialization occurs after an OPEN OUTPUT 

is issued. (Refer to Appendix D for more detailed information.) od 
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(9) The APPLY MASTER-INDEX clause, used only with indexed files, indicates 
that a master index is to be generated when an indexed file is created. 


(10) The APPLY CYLINDER-INDEX integer-5 clause, used only with indexed files, 
indicates that sufficient main storage area is to be allocated to contain integer-5 
cylinder index entries. 


(11) The APPLY CLINDER-OVERFLOW integer-6 clause, used only with indexed- 
sequential files, indicates that integer-6 percent of each cylinder in the prime 
data area is to be reserved for the purpose of cylinder overflow. If this clause 
is omitted, 20 percent of the cylinders specified are automatically allocated. If 
no overflow is desired, 0 percent should be specified. Integer-6 is an unsigned 
number. 


(12) The APPLY EXTENDED INSERTION clause, used only with indexed files, 
indicates that sufficient main storage is to be allocated to contain all records 
on a prime data area track. This area is used when records are inserted into 
a file. The use of the main storage area reduces the number of accesses 
necessary to complete the insertion process. 


Integer-6 should be specified in percentages that indicate whole tracks. For an 
8411 disc, integer-6 should be in multiples of 10 percent. For an 8414 disc, 
integer-6 should be in multiples of 5 percent. If integer-6 is not specified as 
such it will be rounded to the nearest appropriate multiple. 


(13) The APPLY ASCII clause identifies each file that contains or receives ASCII 
data. See Appendix N. 


NOTE: APPLY clauses (rules 5 through 13) are extensions to American National 
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5. DATA DIVISION 


5.1. GENERAL 


Every data item referenced in the Procedure Division must be described in the Data 
Division, except for the special register TALLY, index-names, figurative constants, 
and literals. File structures are described by File Description entries; data items and 
records are described by Record Description or single item entries. 


Format: 


DATA DIVISION. 
FILE SECTION. 


WORKING-STORAGE SECTION. 


LINKAGE SECTION. 


Rules: 
(1) The header DATA DIVISION must be present in all COBOL programs. 


(2) Sections are written in the order shown; if a section is not required, it may be 
omitted entirely. 


(3) Data-names used in FD, SD, or 77 level entries must be unique since they cannot 
be qualified. The same is also true for data-names used in O01 entries within the 
Working-Storage and Linkage Sections of the source program. 
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Data Definition 


Table 5—1 shows the allowable sizes of data items in UNIVAC 9400 COBOL. Data 


type is determined by the PICTURE clause. See 5.3.4 for legal PICTURE character 


for each data type. 


COBOL CHARACTERS AREA IN BYTES 


GROUP (WORKING- 
STORAGE) 


GROUP (FILE or 
LINKAGE SECTION) 


ALPHANUMERIC 
ALPHABETIC 
ALPHABETIC EDITED 
NUMERIC EDITED 
NUMERIC DISPLAY 
NUMERIC COMP 
INDEX NAME ITEM 


INDEX DATA ITEM 





5.2, FILE SECTION 


1 (plus sign) 
N/A 


N/A 


Table 5-1, Allowable Memory Size 


The File Section consists of: 


File Description (FD) entries describing the structure of all files and naming the 
data records contained in each. 


Record description entries immediately follow each File Description entry describing 
in detail each record format used in the file. 
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Format: 


Ne FD file-name-1 (file description clauses) 


01 record-name-!1 (record description clauses) 


{01 record-name-m (record description clauses)]| 


FD file-name-n 


5.2.1. File Description 
Function: 


To provide information concerning the physical structure, labeling, and record 
names of a given file. 


Format: 


FD file-name 


RECORDS 
CHARACTERS f 


[; RECORD CONTAINS [integer-3 TO] integer-4 CHARACTERS] 


STANDARD 
RECORDS ARE Tea 
taper) BEEgRe IS |) SuitFeD 


data-name-!1 [, data-name-2]... 


; BLOCK CONTAINS [integer-1 TO] integer-24 


; RECORDING MODE IS 


a | 


loi<!cim 


| literal-] | 


a 1 


; VALUE oF unqualified-data-name |S [deus anion: | a 


; DATA \ RECORDS IRE) data-name-d |, data-name-5|. 7 ; 


n 7 


D file-name 


; RECORD CONTAINS linteger-5 TO! integer-6 CHARACTERS| 


ES 
; RECORDING MODE sf i 
D 


— 


[<4 


=A” RECORDS ARE | data-name-7 |, data-name-8| 


( 


DATA J RECORD IS i | 
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The various clauses may appear in any order after file-name. 7 


5.2.1.1. 


BLOCK CONTAINS 


Function: 


To 


specify the size of a physical record. 


Format: 


BLOCK CONTAINS [integer-1 TQ] integer} RECORDS 


CHARACTERS 


Rules: 


(1) 
(2) 


(3) 


(4) 
(5) 


(6) 






HARDWARE DEVICE 
AND IMPLEMENTOR-NAME 


Integer-l and integer-2 must be unsigned integers other than zero. 


When RECORDS is specified, this clause specifies the number of records per 
block. 


When CHARACTERS is specified, this clause specifies the number of characters 
(bytes) per block. This number does not include the three bytes added when the 
APPLY BLOCK-COUNT clause is used, but does include the block and record 
length characters that are present when RECORDING MODE V is specified. 


When CHARACTERS and RECORDS are both omitted, CHARACTERS is assumed. 


When this clause is omitted, it is assumed that records are recorded one per 
block and the record size is fixed. 


If integer-1 and integer-2 are both specified, they refer to the minimum and 
maximum number of characters or records per block. Block size ranges are 7 


given in Table 5—2. 
BYTES PER BLOCK 
MINIMUM MAXIMUM 


18 4096 
18 4092 
OTHER TAPE 18 32,767 
(TAPE) 
OTHER TAPE 18 32,763 
(TAPE) WITH BLOCK NUMBERING 
1 132 











UNISERVO VI-C TAPE 
(TAPE-6) 


UNISERVO VI-C TAPE 
(TAPE-6) WITH BLOCK NUMBERING 


CARD-READER-51 
CARD-READER-66 
8411 DISC (DISC or DISC-8411) 


8414 DISC (DISC-8414) 


Table 5-2. Block Size Ranges 
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OTHER TAPE 
(TAPE) 


CARD-PUNCH 
CARD-READER-51 


CARD-READER-66 


8411 DISC (DISC or DISC-8411) 
8414 DISC (DISC-8414) 
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5.2.1.2. RECORD CONTAINS 
Function: 
To specify the size of data records. 


Format: 
RECORD CONTAINS [integer-/ TO} integer-2 CHARACTERS 


Rules: 


(1) Integer-1 and integer-2 must be unsigned integers other than zero; 
integer-2 must be greater than integer-1. 


(2) The size of each data record is completely defined within the Record 
Description entry; therefore, this clause is optional. When present, however, 
the following notes apply: 


(a) If integer-2 is used alone, all the data records in the file must have the 


same size. In this case, integer-2 represents the exact number of characters 


in the data record. 


(b) If integer-1 and integer-2 are both shown, they refer to the minimum and 
maximum size data record. Record size ranges are given in Table 5~3. 


BYTES PER RECORD 
MAXIMUM 


FIXED OR VARIABLE 
UNDEFINED RECORD 
RECORD FORMAT FORMAT 


HARDWARE DEVICE AND 
IMPLEMENTOR-NAME 


UNISERVO VI-C TAPE 
(TAPE-6) 


UNISERVO VI-C TAPE 
(TAPE-6) WITH BLOCK NUMBERING 


co 


— 
fo] 


oo 


PRINTER 





CARD-READER 


uo 


Table 5~3. Record Size Ranges 
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5.2.1.3. LABEL RECORDS 


Function: 


To enable the compiler to cross-reference the description of a label record with 
its associated file. 


Format: 
{ RECORDS ARE STANDARD 
LABEL . RECORD IS OMITTED 
| RECORD data-name-l [, data-name-2]... 
Rules: 


(1) OMITTED specifies that no standard labels exist for the file or the device 
to which the file is assigned. Any nonstandard labels must be described and 
processed as data records. 


(2) STANDARD specifies that standard file labels exist for the file or the device 
to which the file is assigned, and the labels conform to UNIVAC 9400 label 
specifications. Standard user labels may also be present, but STANDARD 
specifies that they are not to be checked on input file, or written on output 
files. 


(3) Data-name-1 [data-name-2]... specifies that standard labels are to be checked 
(or created), and that standard user labels are present. User labels must conform, 
in content and format, to the Univac 9400 standard user label specifications. 


The following rules apply when data-name-l is specified: 


(a) Data-name-1 [data-name-2]... must have a record description subordinate 
to this file description. 


(b) For input files, Data Management provides access to standard user label 
information in the area described by data-name-l. 


(c) For output files, the user moves user label information into the area described 
by data-name-1 for Data Management to write to the output file. 


(d) User label records can be referenced only in USE procedures in the Declara- 
tives portion of the Procedure Division. 
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(4) The label record specifications for the various device types are as follows: 
LABELS LABELS LABELS 
DEVICE OMITTED STANDARD DATA-NAME 


| PRINTER 
| CARD-READER READER 
CARD-PUNCH 


ORGANIZATION 

SEQUENTIAL 

ORGANIZATION 

RELATIVE Lee 
DISC 

ORGANIZATION 

DIRECT i ek 

ORGANIZATION 

INDEXED 


5.2.1.4. RECORDING MODE 





Function: 
To specify the format of the logical record comprising the file. 


Format: 


RECORDING MODE IS 


tol<ICim 


Rules: 


(1) The F mode (fixed-length format) is specified when all the logical records in 
the file are of the same length. 


(2) The U mode (undefined format) states that the records of this file are not 
blocked and may vary in length. 


(3) The V mode (variable-length format) is specified when records within a file 
vary in length. 


Y 


(4) The D mode may be specified for ASCII tape files with variable-length records. 


(5) The following chart describes the recording mode assumed when the clause 
is omitted: A 


“~ *Only BEGINNING user labels are allowed 
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DEVICE 


PRINTER 
CARD-READER F 


CARD-PUNCH 
TAPE 


ORGANIZATION 
SEQUENTIAL 


ORGANIZATION 
RELATIVE 







ASSUMED 
FORMAT 














ORGANIZATION 
DIRECT 


ORGANIZATION 
INDEXED 


(6) RECORDING MODE is an extension to American National Standard COBOL. 





VALUE OF 


Function: 


To describe a particular item in the standard file label record associated with a 
file. This clause serves as documentation only in the UNIVAC 9400 and is also 
accepted for compatibility with the UNIVAC 9300. 


Format: 


VALUE OF ¢unqualified-data-name |S ; Sr aia , 


DATA RECORDS 
Function: 


To specify the names of the logical records in a file. 


Format: 


{ RECORDS ARE 
| RECORD Is 


data-name-1 [, data-name-2]... 


DATA 








UP-7709 
Rev, 2 







5.2.2. 
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Rules: 


(1) This clause is optional and serves as documentation only. 
(2) Each data-name specified must appear at a 01 level number following the FD 
entry. 
Sort File Description 
Function: 


To identify the beginning of a Sort File Description (SD) and supply the name of 
the file. 


Format: 


SD file-name 


[; RECORD CONTAINS [integer-1 TO] integer-2 CHARACTERS] 


F 
[: RECORDING MODE IS 1 
D 


fRECORDIS \ 


data-name-1!, data-name-2]... 


: DATA | RECORDS ARE 


Rules: 
(1) An SD clause is required for each file to be sorted. 


(2) Each data-name specified must appear as a 01 level-number following the SD 
entry. 


(3) The RECORD CONTAINS, RECORDING MODE, and DATA RECORD clauses are 
described under the FD Entry. 


(4) Recording mode V is assumed when the RECORDING MODE clause is omitted. 
(5) File-name may appear only in the SORT and RETURN statements within the 


Procedure Division, and only those file-names which appear in SD entries may 
be used in those statements. 


(6) A summary of the UNIVAC 9400 COBOL SORT formats is given in Section 9. 
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5.3. DATA DESCRIPTION 
Function: 


To define the characteristics of a particular data item. 


Formats: 
Format 1: 


unqualifted-data- -name-1\ 


FILLER f 
[; REDEFINES unqualified-data-name-2 | 


level-number i 


Format 1: 


ASCENDING 


Ascenaine | RET le daleiemen 


; OCCURS integer-2 Times || 


[, data-name-3] .. |. ; [INDEXED BY index-name-1 |, index-name-2]... | 


Format 2: 
; OCCURS linteger-1 TO] integer-2 TIMES DEPENDING ON data-name-1 


} ASCENDING 


SESCENDING| KEY IS data-name-2[, data-name-3) . . | bs Mans 


[INDEXED BY index-name-I [, index-name-2] . . | 


[: 


7 


PICTURE BEY 1S character-s tring | 


: 


COMP 
COMPUTATIONAL 
COMP -3 

; (USAGE 1S] \COMPUTATIONAL-3 
DISPLAY 
INDEX 





. 


IS integer-2 CHARACTERS| 


| [LEFT 
aa SYNCHRONIZED § | RIGHT 


JUST 
JUSTI TwSTieIeDy Richt | 


* VALUE IS isan | 
; BLANK WHEN ZERO 


2 








Format 1: 


{S$ 


N IS TaN 


Te AIGING SEPARATE CHARACTER 


Format 2: 


[SIGN IS] TRAILING 


a BK CE aa 
2 | 


PAGE: 
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Level Number and Unqualified-data-name/FILLER 
Function: 


The level number shows the hierarchy of data within a logical record. In addition, it 
is used to identify entries for condition-names, noncontiguous working-storage items, 
and the RENAMES clause. 


Format: 


fevelenumbek-S unqualified-data-name | 


| FILLER f 


Rules: 

(1) A level number is required as the first element in each data description entry. 
(2) Level-numbers 01 through 09 can be expressed without the leading zeros. 

(3) Level-number 01 identifies the first entry in each Record Description. 


(4) Level numbers start at 01 for records, and become successively higher 
for subsets of records, such as group and elementary items. The maximum 
level-number permitted is 49, except for 66, 77, 88. 


(5) Level-number 66 is used only for the RENAMES clause. 


(6) Level-number 77 is used in the Working-Storage Section to describe noncontiguous 
data items and constants. 


(7) Level-number 88 is assigned to entries which define condition-names associated 
with a conditional variable. 


(8) FILLER may be used to name an elementary item in a record. Under no circum- 
stances can a FILLER item be referred to directly. Also, FILLER must not be used 
with a level-number 88, but may be used to name the associated conditional variable. 


REDEFINES 
Function: 


To allow the same area of computer memory to be described by different data descriptions. 


Format: 


level-number unqualified-data-name-1 [; REDEFINES unqualified-data-name-2 | 


Rules: 
(1) The REDEFINES clause must immediately follow unqualified-data-name-l. 


(2) The level numbers of unqualified-data-name-1 and unqualified-data-name-2 must 
be identical, and may not be 66 or 88. 


(3) REDEFINES must not be applied to level 01 entries in the File Section, although 
this is permissible in the Working-Storage Section. 


(4) Redefinition begins at unqualified-data-name-2 and continues until a level number 
less than, or equal to, that of unqualified-data-name-2 is encountered. A RE- 
DEFINES clause may be used within the range of another REDEFINES with a 
maximum of five levels permitted. 
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(5) When the level number being redefined is other than 01, unqualified-data-name-1 
must specify a storage area equal to the storage area for unqualified-data-name-2. 


(6) Unqualified-data-name-2 must not contain, or be subordinate to, and OCCURS 
clause. 


(7) Entries described under unqualified-data-name-1 must not contain VALUE clauses 
except in condition-name entries (level-number 88). 


(8) Multiple redefinition of the same storage area is permitted. The entries giving the 
new descriptions of the storage area must follow the entries defining the area 
being REDEFINEd; no intervening entries defining new storage are permitted. 
Multiple redefinitions of the same storage area must use the data-name of the 
entry that originally defined the area. 


5.3.3. OCCURS 
Function: 


To eliminate the need for separate entries for repeated data, and to supply information 
required for the application of subscripts or indices. 


Formats: 


Format 1: 


ASCENDING 


ASceNDING KEY IS data-name-2 


OCCURS integer-2 Times 


|, data-name-3].. J: : .[INDEXED BY index-name-! |, index-name-2]... ] 


Format 2: 


al OCCURS L[integer-1 TO] integer-2 TIMES DEPENDING ON data-name-1 


DESCENDING KEY |S data-name-2 |, data-name-3|.. | ae 
[INDEXED BY index-name-1 [, index-name-2|.. a 


Rules: 


(1) The OCCURS clause is used in defining tables and other homogeneous sets of repeated 
data items. Whenever the OCCURS clause is used, the data-name which is the subject 
of this entry must be either subscripted or indexed whenever it is referred to ina 
statement other than SEARCH. Further, if the subject of this entry is the name of a 
group item, all data-names belonging to the group must be subscripted or indexed 
whenever they are used as operands. 


(2) An INDEXED BY clause is required if the subject of this entry, or a group item within 
it, is to be referenced by indexing. Index-name is not defined elsewhere by the user, 
because its format is dependent on the hardware and storage is allocated by the compiler. 


(3) The data description clauses associated with an item whose description includes an 
OCCURS clause apply to each repetition of the item described. 
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(4) 


(S) 
(6) 
(7) 


(8) 


(9) 


(10) 


(1) 


(12) 


(13) 


(14) 


d5) 
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The OCCURS clause cannot be specified in a data description entry that: 
(a) Has an 01, 66, 77, or an 88 level-number. 


(b) Describes an item of variable size. The size of an item is variable if the data 
description of any subordinate item contains format 2 of the OCCURS clause. 


Three levels of subscripting and indexing are permitted. 
Data-name-l, data-name-2, data-name-3, ... may be qualified. 


The KEY IS phrase indicates that the repeated data is arranged in ascending or 
descending order according to the values contained in data-name-2, data-name-3, 
etc. The data-names are listed in their descending order of significance. 


Data-name-2 must be either the name of the entry containing the OCCURS clause or 
the name of an entry subordinate to the entry containing the OCCURS clause. If 
data-name-2 is not the subject of this entry, then: 


(a) All of the items identified by the data-names in the KEY IS phrase must be within 
the group item which is the subject of this entry. 


(b) None of the items identified by data-names in the KEY IS phrase can be described 
by an entry which either contains an OCCURS clause or is subordinate to an entry 
which contains an OCCURS clause. 


Data-name-3, etc. must be the name of an entry subordinate to the group item which 
is the subject of this entry. 


In format 1, the value of integer-2 represents the exact number of occurrences. The 
area allocated multiplied by the number of occurrences cannot exceed 65,535. 


Format 2 specifies that the subject of this entry contains a variable number of occurrences. 
The value of integer-2 represents the maximum number of occurrences and the value of 
integer-l represents the minimum number of occurrences. This does not imply that the 
length of the subject is variable but that the number of occurrences is variable. Integere2 
must be a positive or unsigned integer (not zero). The area allocated, multiplied by the 
number of occurrences, cannot exceed 65,535. Integer-1 may be positive or zero but 

must be less than integer-2. If integer-l is not specified, a value of zero is assumed 

for the minimum number of occurrences. Integer-1 is required in ANS COBOL. 


~< 


A data description entry containing format 2 of the OCCURS clause may be followed 
only, within that record description, by data description entries subordinate to it. 


Any entry which contains, or has a subordinate entry which contains, format 2 cannot 
be the object of the REDEFINES clause. 


In format 2, the data item defined by data-name-1 must not occupy a computer 
storage position within the range of the first computer storage position defined 
by the data description entry containing the OCCURS clause and the last 
computer storage position defined by the record description entry containing 
that OCCURS clause. 


The value of data-name-1 is the count of the number of occurrences of the 
subject and its value must fall within the range integer-1 through integer-2. 
Reducing the value of dataename-1 makes the contents of data items, whose 
occurrence number now exceeds the value of data-name-l, unpredictable. The 
data description of data-name-1 must describe a positive integer. 
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When a group item, having subordinate to it an entry that specifies format 2 
of the OCCURS clause, is referenced, only that part of the table area that is 
specified by the value of data-ename-l will be used in the operation. 


Format 2 is available only in the extended compiler. 


The DEPENDING option (format 2) is only required, and should only be used, 
when the end of the occurrences cannot otherwise be determined. 


The VALUE clause must not be stated in a data description entry which contains 
an OCCURS clause or in any entry which is subordinate to an entry containing 
an OCCURS clause. This rule does not apply to condition-name entries. 
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5.3.4. PICTURE 


Function: 


To describe the general characteristics and editing requirements of an elementary 
data item. 


Format: 


as IS ch tri 
PICTURE character-string 


Rules: 
(1) PICTURE clause can be present only with an elementary item. 
(2) Character-string can consist of one to 30 characters. 
(3) There are five categories of data which can be described with a PICTURE clause: 
@ Alphabetic 
mg Numeric 
a Alphanumeric 
m Alphanumeric Edited 


= Numeric Edited 


Table 5—4 lists the allowable PICTURE symbols and the rules for their usage. 
(4) To define an item as alphabetic: 
(a) Its PICTURE character-string may consist of only the symbol A. 


(b) Its contents, when represented in standard data format, must be any combina- 
tion of the 26 letters of the alphabet and the space. 


(c) Maximum number of character positions allowed is 4092. 
(5) To define an item as numeric: 
(a) Its character-string may consist of only the symbols 9, P, S, V, and H. 
(b) The character-string must contain at least one 9. 
(c) The maximum number of digits permitted in a numeric item is 18. 
(d) The maximum number of occurrences of the symbol P in a picture-string is 17. 


(e) Its contents, when represented in standard data format, must be any combina- 
tion of the numerals 0 through 9, and the item may include an operational sign. 


(f) H in a picture-string specifies that the USAGE of this item is COMP. H is an 
extension to ANS COBOL. 
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(6) To define an item as alphanumeric: 


(a) Its characterestring is restricted to X’s or at least two of the symbols A, X, 
and 9, and is treated as if the picture-string were X’s. 


(b) Its contents, when represented in standard data format, are any combination 
of characters in the UNIVAC 9400 System character set. 


(c) Maximum number of permitted character positions is 4092. 
(7) To define an item as alphanumeric edited: 


(a) Its character-string is restricted to combinations of the symbols AX 9B 0 
and must contain: 


m at least one B and one X 

m at least one zero and one X 

m at least one zero and one A 
> m at least one B and one A 


(b) Its contents, when represented in standard data format, are any combination 
of characters in the UNIVAC 9400 System character set. : 


(c) Maximum number of character positions permitted is 132. 
(8) To define an item as numeric edited: 


(a) Its characterestring is restricted to certain combinations of the following 
symbols: ao 


BPVZCRDBQ9,.*+-—0 (zero) $ (currency sign) 


The allowable combinations are determined by the sequence in which the 
symbols appear, and by the editing rules. The number of digit positions 
must not exceed 18. 


(b) The maximum number of P’s permitted is 17. 


(c) Its contents, when represented in standard data format, must consist only of 
the numerals 0 through 9, plus editing symbols indicated. 


(d) Maximum number of permitted character positions is 132. 
(9) The following symbols may appear only once in a given picture-string. 
> SV.CRDBH 


(10) An integer enclosed in parentheses and following any of the symbols A , X 9 
PZ*B0+-—$ indicates the number of consecutive occurrences of the symbol. 


(11) The order of precedence for characters used as symbols in a character-string 
is listed in Table 5—5. 


(12) Examples of Source Fields and Receiving Fields are listed in Table 5-6. 
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PICTURE 


SYMBOL REPRESENTS 


A numeric character 
An operational sign is associated 


with the data item. 


Assumed decimal point in data 
item. 


Assumed decimal point outside of 
data item. Each P represents one 
character position. 


SUPPLEMENTARY REFERENCE 


CAN BE USED IN 


COMBINATION WITH 


nee | Hew 


PV9H 


Any symbol except: A X 
and is redundant with P. 


Any symbol except: A X 


SPECIAL PICTURE 
POSITION 


Can be preceded 
only by H. Only one 
S is permitted. 


Only one is permitted, 
can precede leading P 
or follow trailing Pe 


Must be first or last 
symbol or symbols of 
PICTURE except for 
$, CR, DB, V or single 
+, -0r $ but cannot be 
both first and last, 


An alphabetic character or space. x9B0 | none 


An alphanumeric character 


Suppression of leading 0’s 
(replaced by blanks or spaces). 


O's with asterisks. 





: Insert comma in character position 
(comma} unless the preceding position has 
been blanked. 


in character position unless 
following positions have been 
blanked. 


Insert the two characters CR if 
data item is of negative value; 
insert two blanks or Spaces if 
value is positive. 


Insert the two characters DB if 
data item is of negative value; 
insert two blanks if value is 
positive. 


Insert $ sign in character 
position. If more than one, 
indicates floating $ sign. 


Insert 0 in character position. 


Insert + in character position if 
data item value positive; - if 
value negative. If more than one 
+ indicates floating sign. 


Insert - in character position if 
data item value negative, blank 
if positive. {f more than one -, 
indicates floating sign. 


ee ears se 


Table 5—4, PICTURE Symbols 


Any symbol except: * A 
X S$ H of more than one: 
$+- 





Any symbol except: A X 
+-SDBH 


Any symbol except: A X 
+-SCRH 


Any symbol except: one 
$ cannot be used with: 
A X SH; more than one 
$ cannot be used with: 
SHA X * Zor more 
than one + - 


Any symbol except: SH 


Any symbol except: one 

+ cannot be used with: 
AX-SCRDBH; more 
than one + cannot be used 
with AX -S CR DBZ H* 
or more than one $ sign. 


Any symbol except: one - 
cannot be used with: A X 
+ § CR DB H; more than 


one - Cannot be used with: 


AX+SCRDB*ZHor 
more than one § sign. 


Can be preceded only 
by: V.,$+-PBO 
(zero) 


Can be preceded only 
by: V.,$+-PBO 


Must be last symbol 
except for P or V 


Must be last symbol 
except for P or V 


Must be first symbols 
when more than one 
except for single + 
or - PBO (zero). If 
only one used, it can 
only be preceded by 
+-orPorv 


If only one +, must be 
either first or last 
except for P or V. If 
more than one +, must 
be first symbol except 
for $ Sign. 


If only one - , must be 
etther first or last 
except for P or V. If 
more than one - , must 
be first symbol except 
for $ sign. 
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FIXED INSERTION 


2) 
a 
° 
a 
= 
> 
a) 
a 
iw 
c 
= 
° 


= 


ean 


* oN 


——_— 






}o+ 
—— 


+ 


} 
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SECTION: 


FIXED INSERTION OTHER SYMBOLS 


oe 
Wey S{/ Vv 


fs) 
n 


NOTES: 


1. 


This chart shows the order of precedence when using characters as symbols in a character-string. 
An X at an intersection indicates that the symbol(s) at the top of the column may precede, in a 
given character-string, the symbol(s) at the left-of the row. Arguments appearing in braces indicate 
that the symbols are mutually exclusive. The currency symbol is indicated by the symbol cs. 


At least one of the symbols A X Z 9 * or at least two of the symbols + - of cs must be present in 
a PICTURE string. 


P, fixed insertion + and - appear twice. The first occurrence represent their use to the left of the 
PICTURE’s numeric character positions and the second their use to the right of the PICTURE’s 
numeric character positions. 


Z * non-fixed insertion cs + and - appear twice. The first occurrence represents the use before the 
decimal point position, the second the use after the decimal point position. 


Table 5~5. Precedence Rules in PICTURES 
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SOURCE FIELD 


PICTURE 
5)V99 


$9(4) 
$9(4) 
$9(4)V99 
$9999V99 
$9(4) 
$9(4) 
$999V99 
9999 


99PPP 
VPPP99 
V9(5) 
V9(5) 


1234500 
00123 
123456 
0012 
+1234 
-1234 
+001209 
-000123 
+1234 
-0010 
001234 
1234 
12345 
A1B2C 
ABCDE 
1234 
12345 
123456 
AB 
ABCDE 
12 

12 
12345 
12345 


Table 5-6. 
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RECEIVING FIELD 


ZZ,ZZZ.99 
ZZ,ZZZ.99 
$$,$$$.99 
$$,$$$.99 
$$,$$$.99DB 
$$,$$$.99DB 
$$,$$$.99CR 


$$,$$$.99CR 
++ 4++.99 


GEEK QO 
990099 
9B9B9B99 
XBX00XXX 
ABBOAAAO0BX 
9(5) 

999.99 
9(5).99 
A(5) 

AA 

9(5) 

-9(5) 
Z(5).99 
9(5).999 





Source and Receiving Fields 


DATA TO BE MOVED PICTURE DATA AFTER MOVE 


12,345.00 
123.00 
$1,234.56 
$12.00 
$1,234.00 
$1,234.000B 
$12.09 
$1.23CR 
1,234.00 
-10.00 
$**12.34 
120034 
16263645 
Ab100B2C 
ADBOBCD ODE 
01234 
345.00 
00001 .23 
ABbbD 
AB 
12000 
.00012 
ppbDD.12 
00000.123 


ams: F 
' 
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5.3.5. USAGE 


Function: 


Specifies the format of a data item in memory. 


Format: 


COMP 
COMPUTATIONAL 
COMP-3 


[USAGE IS] \COMPUTATIONAL-3 


INDEX 
DISPLAY 





Rules: 


(1) 


(2 


— 


(3) 


(4 


w~Y 


(S) 


(6) 


The USAGE clause can be written at any level. At a group level, it applies to 
each elementary item in that group. The USAGE clause of an elementary item 
cannot contradict the USAGE clause stated for the group to which the item 
belongs. The USAGE clause of an elementary item cannot contradict the 
PICTURE clause for that item. 


The DISPLAY option specifies that the item is stored in character form, one 
character per byte. 


An elementary item described with the USAGE IS INDEX clause is called an —_ 
index data item and contains a value which corresponds to the occurrence 
number of a table element. PICTURE clause must not be present in this instance. 


An INDEX data item can be referred to directly only in a SET statement or in 
a relation condition. Also, an INDEX data item can be part of a group which is 
referred to in a MOVE or an I/O statement, in which case no conversion will 
take place. 


Except for the level number and data-name necessary for definition, no additional 
clauses are used to describe INDEX data items. 


COMP and COMP-3 specify packed decimal format, where: 


(a) If the number of digits in the item is odd, the object program memory area 
allocated for this item is an even number of half-bytes. 


Example: PIC H999 VALUE 123. 


wanrycl7 [2 F [Fl 
byte ll byte 2 


(b) If the number of digits in an item is even, there will be an extra half-byte 
in the object program memory allocated for this item. The item’s PICTURE 
is unchanged. 


Example: PIC H99 VALUE 12. 


Memory: | 0 [i )? F] up 
byte ll byte 2 
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The compiler ensures that the unused half-byte is always set to zero when 
information is stored in this item. The compiler assumes that when the 
item is referenced it will contain a valid packed decimal number, with 
zero in the leftmost half-byte. 


(7) If the USAGE clause is omitted, DISPLAY is assumed unless the PICTURE 
clause contains an H in its character-string. 


5.3.6. SYNCHRONIZED 


5.3.7. 


Function: 


To specify the positioning of data items within a computer word or words. 


Format: 
SYNC LEFT 
{SYNCHRONIZED} RIGHT 


Rule: 

The SYNCHRONIZED clause has no effect on the object program in UNIVAC 9400, 
however, it is acceptable to the compiler for compatibility purposes. 

JUSTIFIED 

Function: 


To specify nonstandard positioning of data within a receiving data item. 


Format: 


JUST 
{Jostiriep} RIGHT 


Rules: 
(1) JUSTIFIED may be specified only at the elementary item level. 


(2) This clause may not be used for numeric or numeric-edited data, since numeric 
data is aligned by its decimal point, when present, or right JUSTIFIED when not 
present. 


(3) Alphabetic, alphanumeric, and alphanumeric-edited data is left JUSTIFIED with 
space fill when the JUSTIFIED clause is not specified. 


(4) When the receiving data item is described with the JUSTIFIED clause and the 
sending data item is larger, the leftmost characters are truncated. When the 
receiving data item is JUSTIFIED and larger than the sending data item, the 
data is aligned at the rightmost character position in the data item with space 
fill. 
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5.3.8. VALUE IS 


Function: 


To define the initial VALUE of a Working-Storage item, or to specify the values 
associated with a condition-name. 


Formats: 
Format 1: 


VALUE IS literal 


Format 2: 


\ VALUE 1S ; 
) VALUES are literal-1 [THRU Iiteral-2] 


[ literal-3 [THRU Hiterat-al}. ote 


Rules: 


(1) Format 1 is used to specify the initial VALUE of a data item in the Working- 
Storage Section. The following rules apply to format 1: 


(a) This option causes the item to assume the specified VALUE at the start 
of the object program. If the VALUE clause is not used in an item 
description, the initial value may be unpredictable. 


(b) The VALUE clause must not conflict with other clauses in the data 
description of the item or in the data description within the hierarchy of 
the item. 


(c) In the File Section and the Linkage Section, the VALUE clause must not 
be used except for condition-name entries. 


(d) The VALUE clause cannot be used in a Record Description entry containing 
a REDEFINES clause or in an entry subordinate to an entry containing a 
REDEFINES clause. 


(e) The VALUE clause must not be stated in a Record Description entry contain- 
ing an OCCURS clause or in an entry subordinate to an entry containing an 
OCCURS clause. 


(f) The VALUE clause must not be specified for a group item containing items 
with descriptions including JUST, SYNC, USAGE COMP, or USAGE INDEX. 


(g) If the VALUE clause is used in an entry at the group level, literal must be 
a figurative constant or a nonnumeric literal, and the group area is initialized 
without consideration for the individual elementary or group items contained 
within this group. The VALUE clause must not be stated at the subordinate 
levels within the group. 
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(2) Format 2 can be used only in a condition-name entry, and is available only in 
the extended compiler. Format 1 is used for condition-names when compiling 
with the basic tape compiler. The following rules apply to format 2: 

(a) All condition-name entries are level-number 88. See 5.3.12 for a full 
description of condition-name. 

(b) When the THRU option is used, literal-1 must be less than literal-2, literal- 
3 less than literal-4, and so on. 

(3) In the File Section, only the VALUE clause(s) stated for condition-name entries 
is valid. 

(4) A figurative constant may be substituted in either format 1 or format 2 when 
a literal is specified. 

(5) During compilation, a diagnostic is issued when the VALUE and PICTURE 
clauses conflict in any manner. Compilation continues with the VALUE clause 
ignored. (Exception: unsigned VALUE with signed PICTURE gets a + sign.) 

5.3.9. BLANK WHEN ZERO 

Function: 

Causes the value of a receiving item to be set to space when the value of the sending 

item is zero. 

Format: 

BLANK WHEN ZERO 

Rules: 

(1) This clause can be specified only at the elementary item level, and can be used 
only with a numeric or numeric-edited item. When used with a numeric item, the 
category of the item is considered numeric-edited. 

(2) The effect is not necessarily the same as zero suppression editing via the 
PICTURE clause, because the item is affected only when its numeric value is 
Zero. 

5.3.10. MAP 
Function: 


Specifies the memory size of a data item in bytes. 


Format: 


MAP IS integer, CHARACTERS 


Rule: 


The MAP clause has no effect on the object program in the UNIVAC 9400 System; 
however, it is acceptable to the compiler for compatibility purposes. 
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RENAMES 
Function: 
Permits alternate, possibly overlapping, groupings of elementary items. 


Format: 


66 unqualified-data-name-1 ;RENAMES data-name-2 | THRU data-name-3] 


Rules: 


(1) All RENAMES entries associated with a given logical record must immediately 
follow its last data description entry. 


(2) Data-name-2 and data-name-3 must be names of elementary items or groups of 
elementary items in the associated logical record, and cannot be the same 
data-name. 


(3) Level-numbers 66, 77, 88, and 01 cannot be RENAMEd. 


(4) Neither data-name-2 nor data-name-3 may have an OCCURS clause in its data 
description, nor can it be subordinate to an entry with an OCCURS clause. 


(5) Data-name-2 must precede data-name-3 in the Record Description. 
(6) Data-name-3 cannot be subordinate to data-name-2. 
(7) Data-name-2 and data-name-3 may be qualified. 


(8) One or more RENAMES entries can be written for a logical record. 


Condition-name 
Function: 


To assign a name for a specific value or range of values. The condition-name with 
multiple values, including the THRU option, is implemented only in the extended 
compiler. 


Format: 
VALUE IS 


VALUES se literal-1 [THRU lJiteral-2] 


88 condition-name ; { 


[titeral-3 [THRU literal-4] | hed 
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Rules: 
— 
(1) The VALUE clause is used as described in 5.3.8. 
(2) Each condition-name requires a separate entry with a separate level-number 88. 
(3) The condition-name entries for a particular conditional-variable must immediately 
follow the entry describing the conditional-variable item with which the condition- 
name is associated. 
(4) A condition-name may be associated with any group or elementary item except 
a level-number 66 item, or an index data item. 
(5) Examples of use of condition-name: 
(a) Elementary item: 
02 data-name-l. 
03 data-name-2 PIC XX. 
88 condition-name VALUE 'AB'. 
02 data-name-3. 
PROCEDURE DIVISION. 
IF condition-name GO TO procedure-name. 
Instead of: 
IF data-name-2 = 'AB' GO TO procedure-name. 
+e (b) Group Item: 


02 data-name-l. 

88 condition-name VALUE is '20' THRU '25'. 
03 data-name-2 PIC 9. 
03 data-name-3 PIC 9. 

02 data-name-4. 

PROCEDURE DIVISION. 


IF condition-name GO TO procedure-name. 
Instead of: 


IF data-name-1 NOT < '20' AND NOT > '25' GO TO 
procedure-name. 
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5.3.13. SIGN 


Function: 


Specifies the position and the mode of representation of the optional sign when it 
is necessary to describe these properties explicitly. 


Formats: 
Format 1: 
LEADING 
[SIGN 31 Fe et SEPARATE CHARACTER 
Format 2: 


[SIGN IS] TRAILING 


Rules: 


(1) 


(2) 


(3) 


(4) 


(S) 


(6) 


The SIGN clause may be specified only for a numeric data description entry 
whose PICTURE contains the character ‘S’, or a group item containing at least 
one such numeric data description entry. 


The numeric data description entries to which the SIGN clause applies must be 
described, either explicitly or implicitly, as USAGE IS DISPLAY. 


At most, one SIGN clause may apply to any given numeric data description 
entry. 


If format 1 is used, the letter ‘S’ in the PICTURE is counted in determining the 
size of the item. The operational signs for positive and negative are the 
characters ‘+’ and ‘—’ respectively. 


If the optional SEPARATE CHARACTER clause is not present, the letter ‘S’ 
in the PICTURE is not counted in determining the size of the item. Format 2 
specifies that the operational sign is in the zone portion of the least signifi- 
cant digit position of the item. A positive sign is represented by a hexadecimal 
‘C’, a negative sign by a hexadecimal ‘D’. 


A numeric data item whose PICTURE contains the character ‘S’, but to which 
no optional SIGN clause applies, has an operational sign in the zone portion 
of the least significant digit position. The sign representation is as described 
for format 2 of the SIGN clause. 
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WORKING-STORAGE SECTION 
Definition: 


That section of the Data Division used to describe areas of memory which are to 
contain intermediate results of processing and other temporarily stored data at 
object program run time, as well as named constants. 


Format: 
WORKING-STORAGE SECTION. 


77 (name and description of single-item area) 


01 (record-name and description) 


03 (name and description of group item) 


nn (name and description of elementary item) 


[66 data-name ;RENAMES data-name-n] 


01 (record-name and description) 


[88 (condition-name entry)| 


Independent Entries 
Function: 


To describe noncontiguous single items in Working-Storage, each of which is neither 
subdivided nor a subdivision of another data-name. 


Format: 
77 unqualified-data-name . als IS picture-string 
- PICTURE 


Rules: 
(1) Level-number 77 is assigned only to single item areas. 
(2) Each independent entry must have a unique data-name. 


(3) All level-number 77 entries should be grouped together in the beginning of the 
Working-Storage Section. 


(4) The VALUE clause may be used to specify the initial or constant value of any 
level-number 77 entry. 
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5.4.2. Record Description 


Function: 


To describe contiguous data areas which are not part of a file. 


Format: 


01 record-na me 


(subordinate data items and clauses) 


Rules: 


(1) Data elements in Working-Storage which bear a definite relationship to each 
other may be grouped into records. This is done through the same descriptive 
clauses used in Data Description entries in the File Section, including the 
OCCURS and REDEFINES clauses. 


(2) Each record-name must be unique since it cannot be qualified by a file-name 
or section-name. Subordinate data-names need not be unique if they can be 
qualified. 


5.5. LINKAGE SECTION 


Definition: 


That section of the Data Division used to describe data that is available in a CALLing 
program, but is referenced in both the CALLing and the CALLed programs. 


Rules: 


(1) Organization and structure follow the rules described under the Working-Storage 
Section, with one exception: the VALUE clause may not be specified for other 
than 88 level entries. 


(2) Record Description entries in the LINKAGE SECTION provide names and 
descriptions, but storage within the program is not reserved since the data exists 
elsewhere. 


(3) The LINKAGE SECTION is required in any program containing an ENTRY statement 
with a USING option or Procedure Division USING. 


(4) See Appendix F for examples of CALLing and CALLed programs. 
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6. PROCEDURE DIVISION 


6.1. GENERAL 


The Procedure Division contains the instructions or steps necessary to solve a given 
problem. 


Format: 


PROCEDURE DIVISION [USING {data-name}... |. 
DECLARATIVES. 





(declarative sections) 


END DECLARATIVES. 


[section-name-1 SECTION [priority-number] . | 


paragraph-name-l. 


sentence-l. 


sentence-n. 


paragraph-name-2. 


[section-name-n SECTION I[priority-number] . | 
6.1.1. USING 


Function: 


USING immediately following the header PROCEDURE DIVISION serves as an entry 
point declaration and can appear only in a CALLed subprogram. 
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Format: 


USING unqualified-data-name-1 | unqualified-data-name-2]. . . 


Rules: 


(1) If USING is present, the external symbol (ENTRY name) associated with this 
entry point is the same as PROGRAM-ID. 


(2) If USING is not present, the beginning of the PROCEDURE DIVISION is not 
one of the entry points in this particular subprogram. 


(3) Data-names present refer to data items described in this subprogram. Their 
level numbers are restricted to 01 or 77, and they must be defined in the 
Linkage Section. 


6.2. DECLARATIVES 
Function: 


The Declaratives Section of the Procedure Division contains compiler-directing 
statements that specify the circumstances under which a procedure is to be executed. 


Format: 


DECLARATIVES. 

section-name-1 SECTION. 
declarative-sentence-1, 

paragraph-name-]. 
sentence-1. 
[sentence-n.] 


[section-name-n SECTION.]. . 


END DECLARATIVES. 


Rules: 
(1) Declarative Sections are grouped at the beginning of the Procedure Division. 


(2) The key word DECLARATIVES must immediately follow the header PROCEDURE 
DIVISION on a separate line. The key words END DECLARATIVES must follow 
the last line of the declaratives on a separate line. 


(3) Each Declarative Section must begin with a section-name, followed by a USE 
sentence. The remainder of the section consists of one or more procedural 
paragraphs. 


(4) No priority number is allowed on section-names in the Declaratives. 





Mee 
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6.3. SECTIONS 


Definition: 


The most inclusive procedural unit in the Procedure Division to which a procedure 
name can be assigned. 


Format: 


section-name SECTION [priority-number]. 
paragraph-name. 


Rules: 


(1) The Procedure Division must be divided into sections with appropriate priority 
numbers when the program is to be segmented or when the Declarative Section 
is present. 


(2) Priority-number must be an unsigned integer ranging in value from 0 through 99. 


(3) Section priority-numbers must be in ascending sequence, and sections with the 
same priority-number must be contiguous. 


(4) Sections belonging to the Declaratives portion of the Procedure Division are 
associated with the fixed segment, and must not contain priority numbers in their 
section headings. 


(5) Priority numbers 0 through 49 are used for the fixed segment, and priority numbers 
50 through 99 designate independent segments. (See Section 7 for a complete 
discussion on segmentation.) 


(6) Sections comprising the fixed segment, if any, must precede all sections with 
priority numbers greater than 49. 
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PARAGRAPHS 
Definition: 


A body of one or more procedural sentences with a procedure name by which it may 
be identified and referenced. 


Format: 


paragraph-name. 
sentence-l. 


[sentence-2. | 


Rules: 


(1) A paragraph must contain at least one sentence, and may consist of any practical 
number of sentences. It must be headed by an identifying procedure name, since 
transfer references within the Procedure Division are made to entire paragraphs. 


(2) Any practical number of paragraphs may be combined into a section. 


(3) Generally, the object coding for a single sentence must be less than 4096 bytes. 


STATEMENTS AND SENTENCES es 
Definition: 


A statement consists of a verb and any other reserved words and user-supplied words 
necessary to fulfill one of the valid verb formats. 


A sentence consists of one or more statements terminated by a period. 
Format: 
statement-1 [{statement-2}.. .]. 
Imperative Statements 
Definition: 
Statements which indicate specific unconditional actions to be taken by the object program. 
Format: 


verb word-string. 


Rules: 


(1) Verb must be one of the allowable UNIVAC 9400 COBOL verbs listed in 6.6. 


(2) Word-string consists of all words (reserved words, names, literals, and punctuation) 
necessary to complete a valid format for that verb. 
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6.5.2. Conditional Statements 


6.5.3. 


Definition: 


Statements which begin with the verb IF and specify alternative courses of action, 
depending upon the outcome of a test or comparison. 


The AT END conditional is discussed with the READ and RETURN verbs; the ON 
SIZE ERROR conditional is discussed with the arithmetic verbs; and the INVALID 
KEY conditional is discussed with the READ, WRITE, REWRITE, and INSERT 
statements. 


Format: 


oe statement-1 ELSE statement-2 
IF condition; 1 ; a | 


NEXT SENTENCE OTHERWISE NEXT SENTENCE 


Rules: 


(1) Condition can be simple or compound. A simple conditional expression would 
contain only one of the following: a relational expression, condition-name, or 
item class test. A compound conditional expression would contain more than 
one condition. Compound conditions are not permitted in the basic compiler. 


(2) All other rules for format and application of conditional and compound conditional 
statements are discussed under the IF and PERFORM verbs. 

Compiler-Directing Statements 

Definition: 


Statements which direct the compiler to take certain actions at compilation time. 


Format: 


verb word-string. 


Rules: 


(1) All rules for compiler-directing statements are stated in the discussion of the 
following verbs: 


COPY, ENTER, NOTE, USE 


(2) Word-string consists of all reserved words and user-supplied words necessary 
to complete a valid format for that verb. 


(3) Compiler-directing statements must not appear within conditional statements. 





*OTHERWISE is an extension to American National Standard COBOL. 
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VERB TYPES 


Definition: 


A verb is a reserved word used in the Procedure Division that denotes action to be 
performed by the computer or the compiler. There are seven general categories of 

verbs in UNIVAC 9400 COBOL. These categories, and the verbs in each, are as follows 
(*denotes extended compiler only): 


mw Arithmetic: ADD, DIVIDE, MULTIPLY, SUBTRACT, COMPUTE* 


Procedure Branching: ALTER, GO TO, PERFORM, EXIT 


Data Movement: EXAMINE, MOVE, SET, TRANSFORM 


Input-Output: ACCEPT, CLOSE, DISPLAY, INSERT*, OPEN, READ, RELEASE*, 


RETURN*, REWRITE*, SEEK*, SORT*, WRITE 


Ending: STOP 


Conditional: IF, SEARCH 


w Compiler Directing: COPY, ENTER, NOTE, USE 


A description of the various categories and the verbs contained in each, is presented 
in the ensuing paragraphs. 


6.6.1. 


Arithmetic Verbs 


The arithmetic verbs permit basic calculations to be performed on the data. Four 
verbs corresponding to the four basic arithmetic operations are provided: ADD, 
SUBTRACT, MULTIPLY, and DIVIDE. In the extended compiler only, a fifth verb, 
COMPUTE, is provided to allow the programmer to specify arithmetic calculations 
through the use of arithmetic expressions. 


Appendix H describes the manner in which intermediate results of arithmetic operations 


are handled by the compiler. 


Rules: 


(1) 


(2) 
GB) 


(4) 


All data items referenced in arithmetic statements must represent numeric 
elementary data items previously defined in the Data Division. 


All literals used in arithmétic statements must be numeric. 


The maximum size of each operand is 18 decimal digits. The composite of 
operands (the data item resulting from the superimposition of all operands, 
aligned by decimal points) must not contain more than 18 digits. 


The data descriptions (PICTURE) of the operands may differ from each other. 
Decimal point alignment is supplied automatically throughout computations. 
Conversion of items with unlike usage is also automatic. 
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(6) 


(7) 


(8) 


(9) 
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SECTION: 


The PICTURE of any arithmetic operand cannot contain editing symbols. An 
appropriate error diagnostic will be issued during compilation if this occurs. 
Operational signs and implied decimal points are not considered editing symbols. 
When the GIVING option is used, data items to the right of the word GIVING may 
contain editing symbols. 


If, after decimal point alignment, the number of places in the fraction of the result 
of an arithmetic operation is greater than the number of places provided for the 
fraction of the resultant identifier, truncation is relative to the size provided for 
the resultant identifier. When the ROUNDED option is used, the absolute value of 
the resultant identifier is increased by one whenever the most significant digit of 
the excess is equal to or greater than five. 


If, after decimal point alignment, the value of result exceeds the largest value 
that can be contained in the associated resultant identifier, a size error condition 
exists. In the event of a Size error condition, one of two possibilities will occur, 
depending on whether the ON SIZE ERROR option has been specified. 


(a) In the event that ON SIZE ERROR is not specified, and a size error condition 
arises, the effect is unpredictable. 


(b) If ON SIZE ERROR has been specified, and a size error condition arises, the 
value of the resultant identifier will not be altered. The imperative-statement 
associated with the ON SIZE ERROR option will be executed after the last 
resultant identifier is considered. 


The CORRESPONDING option may be used with the ADD and SUBTRACT verbs. 
In the following paragraphs, d, and do refer to the group items involved. A pair of 
data items, one from each group item, CORRESPOND if the following conditions 
exist: 


(a) A data item in d; and a data item in dy have the same name and qualification 
up to, but not including, dy and do. 


(b) Both of the data items are elementary numeric items. 
(c) Neither dy) nor dy can be a data item with level number 66, 77, or 88. 


(d) A data item subordinate to d, or dy and containing a RENAMES, REDEFINES, 
or OCCURS clause is ignored. However, dj and dy may have REDEFINES 
or OCCURS clauses, or be subordinate to data items with REDEFINES or 
OCCURS clauses. 


Statements having multiple results are considered by the compiler as though 
they were written in the following manner: 


(a) As a statement which performs all the arithmetic necessary to arrive at the 
result to be stored in the receiving items, and stores that result in a 
temporary storage location. 
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(b) As a sequence of statements transferring or combining the value of this 
temporary location with a single result. These statements are considered a 
to have been written in the same left to right sequence in which the 
multiple results are listed. For example, the result of the statement 


ADD A, B, C TOC, D(C), E 
is equivalent to 

ADD A,B,C GIVING temp 

ADD temp TO C 

ADD temp TO D(C) 

ADD temp TO E 


where: temp is an intermediate result item. 


Procedure Branching Verbs 


Normally,.the statements in the Procedure Division are executed consecutively in 
order of their appearance. This is also true of the execution of each paragraph and 
section. However, it is often necessary to alter this normal sequence of operation 
and branch to a different point in the program to execute a number of statements 
before returning to the next statement. The procedure branching verbs permit this 
sequencing of logical operations: 


ALTER, GO TO, PERFORM, EXIT 
Data Movement Verbs 


Three verbs are provided by UNIVAC 9400 COBOL for the specific purpose of moving 
or manipulating data: 


EXAMINE, MOVE, SET 


This is in addition to the several verbs which have, as a secondary function, the ability 
to move or manipulate data in some manner. For example, an arithmetic verb may 

cause some data movement and/or manipulation. This, however, is secondary to its 
main function of effecting an arithmetic calculation. 


Input/Output Verbs 


In any data processing application, quantities of data passed between storage and 
external media such as card, tape, or disc devices. The input/output verbs control 
and coordinate the flow of data, enabling the COBOL programmer to obtain records 


for processing and return the processed record to the external media. The input/output 
verbs are: 


ACCEPT, CLOSE, DISPLAY, OPEN, READ, WRITE 


In addition to these verbs, the extended compiler contains the 


INSERT, RELEASE, RETURN, REWRITE, SEEK, and SORT verbs, 
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6.6.5. Ending Verb 


ee 
The STOP verb is used to halt execution of the object program either permanently 
or temporarily. 
6.6.6. Conditional Verb 
Conditional expressions are used in situations where the outcome of a test will 
determine the next logical step to be performed. The verb IF is the principal conditional 
verb used with conditional expressions to determine the truth or falsity of a statement 
or comparison. (See also PERFORM statement, 6.7.21.) 
6.6.7. Compiler-Directing Verbs 
Certain verbs direct the compiler to perform a specific action and do not directly 
cause any object coding to be produced. These verbs affect the object program 
indirectly, except for the verb NOTE which has absolutely no effect on the object 
program. 
The compiler-directing verbs are: 
COPY, ENTER, NOTE, USE. 
6.7. VERBS 
Each UNIVAC 9400 COBOL verb is described in alphabetical order in this section. 
; 6.7.1. ACCEPT 
Ne 
Function: 
Causes low volume data to be read from an appropriate hardware device, system 
memory location, or UPSI switch (user program switch indicator). 
F ormat: 
ACCEPT identifier [FROM mnemonic-name] 
Rules: 
(1) The ACCEPT statement causes the next set of data available at the mnemonic- 
name to replace the contents of the data item named by the identifier. 
(2) The job stream is assumed to be the input source when the FROM option is 
not specified. The description of identifier determine the number of cards 
ACCEPTed. One card from the job stream contains up to 80 characters. The 
maximum length specified by identifier is 4095 characters, which would require 
52 cards. 
(3) To indicate that input is to be accepted from the console typewriter, the 
following message is displayed: 
CA10 ACCEPT READY. 
a, Program operation is suspended until a typein occurs (CA10 indicates a COBOL 


ACCEPT). 
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(4) The mnemonic-name must be associated with an implementor-name in the 
SPECIAL-NAMES paragraph of the Environment Division. SPECIAL-NAMES 
that can be the source of ACCEPTed data are: 


SYSCOM 
SYSDATE 


SYSTIME 
SYSCONSOLE 


SYSSWCH 
See Table 4-1 for specific interpretation of implementor-names. 


ADD 
Function: 


The ADD statement causes two or more numeric operands to be summed and the 
result to be stored. 


Formats: 
Format 1: 
Apps wceatiier EU (7. mlentittcrs). a6 sdentitersn (ROUNDED! 
——= |literal-1 , literal-2 —_ Se ere 


[, identifier-n [ROUNDED]]...[; ON SIZE ERROR imperative-statement] 


Format 2: 
identifier-1 identifier-2 , 1dentifier-3 
apy ee eis \ [. ieral3 |: .. GIVING 


identifier-n [ROUNDED] [; ON SIZE ERROR imperative-statement] 


Format 3: 


CORR : a é nee 
ADD CORRESPONDING} identifier-1 TO identifier-2 [ROUNDED] 


[; ON SIZE ERROR imperative-statement] 


PAGE: 
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Rules: 


(1) 


(2) 
(3) 


(4) 


(S) 


(6) 


(7) 


In formats 1 and 2 each identifier must refer to an elementary numeric item 
except for identifiers to the right of the word GIVING which may contain 
editing symbols. 


Each literal must be a numeric literal. 


The maximum size of each operand is 18 decimal digits. The composite of 
operands, which is that data item resulting from the superimposition of all 
operands, excluding the data items that follow the word GIVING, aligned on 
their decimal points, must not contain more than 18 digits. 


If format 1 is used, the values of the operands preceding the word TO are 
added together, then the sum is added to the current value in each identifier, 
identifier-m, identifier-n, ..., and the result is stored in each resultant 
identifier, identifier-m, identifier-n, ..., respectively. 


If format 2 is used, the values of the operands preceding the word GIVING 
are added together, then the sum is stored as the new value of identifier-n, 
which is the resultant identifier. 


If format 3 is used, data items in identifier-1 are added to, and stored in, 
corresponding data items in identifier-2. 


For a description of the ROUNDED, SIZE ERROR, and CORRESPONDING 
options, see paragraph 6.6.1, Arithmetic Verbs. 


ALTER 


Function: 


The ALTER statement modifies a predetermined sequence of operations. 


Format: 


ALTER procedure-name-1 TO [PROCEED TO] procedure-name-2 


[, procedure-name-3 TO [PROCEED TO] procedure-name-4]. . . 


Rules: 


(1) 


(2) 


(3) 


Procedure-name-1l, procedure-name-3,... is the name of a paragraph that 
contains only one sentence consisting of a GO TO statement without the 
DEPENDING ON option. 


Procedure-name-2, procedure-name-4,... is the name of a paragraph or 
section in the Procedure Division. 


During execution of the object program, the ALTER statement modifies the 

GO TO statement in the paragraph named procedure-name-1, procedure-name-3, 
. replacing the object of the GO TO by procedure-name-2, procedure-name-4, 
. , respectively. 
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(4) A GO TO statement in a section whose priority is equal to or greater than 
50 must not be referred to by an ALTER statement in a section with a 
different priority. 

CALL 


Function: 


Used in conjunction with the ENTER verb in the main program to communicate 
with subprogram entry points. 


Format: 
file-name 
data-name 
CALL entry-name| USING procedure-name 
sort-name 


Rule: 


See the ENTER verb, paragraph 6.7.10 for information regarding use of CALL. 


CLOSE 
Function: 


Terminates the processing of one or more input or output reels, units, or files with 
optional rewind with or without lock. 


Format: 


NO REWIND 
CLOSE file-name- | barr UN | [with B LOCK REWIND |] 


: NO REWIND 
| te-nome-o| BR =| [with { LocK. HH joe 


Rules: 








(1) File-name must not be the name of a SORT file. 


(2) After a CLOSE statement without a REEL/UNIT phrase has been executed for 
a file, an OPEN statement must be executed before any other reference can be 
made to the file. 


(3) The REEL/UNIT option is used to effect reel or unit swapping in a sequential 
file process. If the reel/unit is to be dismounted from the device, the LOCK 
option should be employed. 


(4) The UNIT option is only applicable for direct access files when ACCESS MODE 
IS SEQUENTIAL is specified. 


(5) The REEL, NO REWIND, and LOCK options are only applicable to magnetic 
tape files and are meaningless when operating with any other device. 


(6) When the LOCK option is specified for REEL, the current reel of the tape file 
is rewound and unloaded. When the LOCK option is specified for the entire file, 


the file may not be OPENed again in the object program. 


(7) Each file-name refers to an FD name in the Data Division. 


12 
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SECTION: PAGE: 


(8) If neither LOCK nor NO REWIND is specified, the current reel of the file is 
rewound and all other reels belonging to the file are rewound. However, this rule 
does not apply to those reels controlled by a prior CLOSE REEL entry. 


(9) If the NO REWIND option is specified, the current reel of the file remains in 
whatever position it is in at the time the CLOSE is given. 


COMPUTE 
Function: 


The COMPUTE statement assigns to a data item the value of a numeric data item, 
literal, or arithmetic expression. COMPUTE is available only with the extended 


compiler. 


Format: 


identifier-2 


COMPUTE identifier-1 [ROUNDED] =< literal 


arithmetic-expression 


[; ON SIZE ERROR imperative-statement] 


Rules: 


(1) Literal must be a numeric literal. 


(2) Each identifier must refer to an elementary numeric item. 


Only identifier-1 may contain editing symbols. 


(3) The arithmetic-expression option permits the use of any meaningful combination 
of identifiers, numeric literals, and arithmetic operators, parenthesized as 
required, 


(4) The maximum size of each operand is 18 decimal digits. 


(5) The identifier-2 and literal options provide a method for setting the value of 
identifier-1 equal to the value of identifier-2 or literal, 


(6) The final result of operations evaluated in the arithmetic-expression is placed 
in identifier-1. 


(7) The arithmetic-expression option allows the user to combine arithmetic operations 
without the restrictions on composite of operands and/or receiving data items 
imposed by the arithmetic statements. 


(8) Intermediate results are possible in a COMPUTE statement containing multiple 
operands. The compiler treats a statement as a succession of operations, and 
reserves memory areas for required intermediate results. The compiler also determines 
the number of integer and decimal places reserved for intermediate results. The 
ON SIZE ERROR option applies only to final results. See Appendix I for a 
discussion of how the compiler handles intermediate results. 
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SECTION: 


(a) Arithmetic operators character representation: 


Addition + 
Subtraction = 
Multiplication * 
Division / 
Exponentiation 6% 


(b) Parentheses may be used to specify the order in which elements are to be 
evaluated. Expressions within parentheses are evaluated first; within a nest 
of parentheses, evaluation proceeds from the least inclusive set to the most 
inclusive set. 


(c) When parentheses are not used or parenthesized expressions are at the same 
level of inclusiveness, the following order of evaluation is implied: 


unary + and — signs 


x 
* and / 


+ and — 


6.7.7. COPY 


Function: 


The COPY statement permits copying text from the COBOL library into the source 
program. The extended compiler provides the facility for copying text from the 
library into the source program with a capability for word substitution as text is 
copied. See Format 2. 


Format 1: 


COPY library-name 








Format 2: 
word-2 
COPY library-name | REPLACING word-1 BY < identifier-1 
= = literal-1 
word-4 
[, word-3 BY identifier-2 \ ] 
literal-2 
Rules: 


(1) The COPY statement may appear as follows: 
(a) in any of the paragraphs in the Environment Division; 


(b) in any level indicator entry (FD, SD) or an 01 level number entry in the 
Data Division; 


(c) in a section or a paragraph in the Procedure Division. 
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(2) The library-name may be composed of no more than eight alphanumeric 
characters and a hyphen; the name must contain at least one alphabetic 
SS character. 


(3) No other statement or clause may appear in the same entry as the COPY 
statement. 


(4) The copying process is terminated by the end of the library text. 


(5) Both the COPY statement and the statements of the library text to which it 
refers, will appear on the output listing. 


(6) The text contained on the library must not contain any COPY statements. 


(7) If the REPLACING phrase is used, each occurrence of word-1, word-3, etc., 
in the text being copied from the library is replaced by the word, identifier, 
or literal associated with it in the REPLACING phrase. 


(8) Use of the REPLACING option does not alter the material as it appears on 
the library. 


(9) Word-1, word-2, etc., may be a data-name, procedure-name, condition-name, 
mnemonic-name, file-name or sort-name. 


(10) The literal-n may be numeric or nonnumeric, or any figurative constant 
except the ALL literal. 
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6.7.8. DISPLAY 


6.7.9. 


Function: 


The DISPLAY statement causes low volume data to be written to an appropriate 
hardware device or system memory location. It can also be used to set the UPSI 
switches. (Refer to Appendix L for a detailed explanation of DISPLAY statement 
usage.) 


Format: 

literal-1 , literal-2 : 
DISPLAY, ce itier-t+{, identitier-2 | . +. [UPON mnemonic-name] 
Rules: 


(1) When the UPON option is omitted, the data is written on the console typewriter. 


(2) When the UPON option is specified, the mnemonic-name must be associated with 
an implementor-name in the SPECIAL-NAMES paragraph (4.2.3) in the Environment 
Division. 


(3) Those SPECIAL-NAMES which may be associated with the DISPLAY statement 
via mnemonic-name are: 


SYSCOM, SYSCONSOLE, SYSSWCH, SYSSWCH-n, SYSLST. See Table 4-1 
for more detailed information. 


(4) Console DISPLAYs are in 59-character multiples; each multiple is followed 
by a hyphen and preceded by CD10 which indicates a COBOL DISPLAY (see 
Appendix L). For signed numeric items, a separate sign character is displayed 
immediately following the operand. 


(5) The number of printer characters displayed are in multiples of 132. An advance 
of one line precedes each line of output. Each operand displayed is limited to 
4092 characters. For signed numeric items, a separate sign character is dis- 
played immediately following the operand. 


DIVIDE 
Function: 


The DIVIDE statement divides one numeric data item into another and sets the 


value of a data item equal to the results. 
Formats: 


Format 1: 


literal 


DIVIDE a INTO identifier-2 [ROUNDED] 
[; ON SIZE ERROR imperative-statement] 


Format 2: 


DIvipE ) dentifier-1{ ito J identifier-2 0 Giving identifier-3 [ROUNDED] 
Ss literal-1 ——= } literal-2 a =a 


[; ON SIZE ERROR imperative-statement] 
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Format 3: 


identifier-1 identifier-2 
OWE er | ae cee 


GIVING identifier-3 [ROUNDED] aie 


[; ON SIZE ERROR tmperative-statement] 


Format 4: 
Divipe } tdentifier-1( irq } identifier2 ( Giving identifier-3 [ROUNDED] 
—— )literal-] —— )literal-2 ak SACRE — 


REMAINDER identifier-4 [; ON SIZE ERROR imperative-statement] 
Format 5: 


DIVIDE BY 


\ ideal her 


identifier-2 
{ literal-] 


iiteraieo civine identifier-3 [ROUNDED] 


REMAINDER identifier-4 [;ON SIZE ERROR imperative-statement] 


Rules: 


(1) Each identifier must refer to a numeric elementary item except in formats 2 and 3, 
where identifiers to the right of the word GIVING may contain editing symbols. 


(2) Each literal must be a numeric literal. 

(3) The maximum size of each operand is 18 decimal digits. ee; 
(4) When format 1 is used, the resulting quotient replaces identifier-2. 

(5) When either format 2 or 3 is used, the result is stored in identifier-3. 


(6) For a description of the ROUNDED and SIZE ERROR options, see paragraph 
6.6.1, Arithmetic Verbs. 


(7) The composite of operands, which is the data item resulting from the superimposition 
of all receiving data items aligned on their decimal points, must not contain more 
than 18 digits. 


(8) Formats 4 and 5 are used when a remainder from the division operation is 
desired, namely identifier-4. A remainder in COBOL is defined as the result 
of subtracting the product of the quotient and the divisor from the dividend. 
If the ROUNDED option is specified, the quotient is rounded after the remainder 
is determined. 
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6.7.10. ENTER 


Function: 


The ENTER statement is used in conjunction with the CALL or ENTRY statements 
to permit run-time communications between the main COBOL program and COBOL 
or any other language subprograms. ENTER may also be used with the EXIT 
PROGRAM or RETURN options. 


Formats: 


Format 1: 


ENTER LINKAGE. 


data-name 


CALL cnry-name] USING pro cedate name ee | ‘ 


file-name 
sort-name 


ENTER COBOL. 


Format 2: 

ENTER LINKAGE. 

ENTRY entry-name [USING | unqualified data-name bisa 
ENTER COBOL. 


Format 3: 


ENTER LINKAGE. 
EXIT PROGRAM. 
ae 

ENTER COBOL. 


Rules: 


(1) Format 1 causes control to be transferred from one object program to another 
within the run unit. 


(a) Entry-name must be the external symbol of an entry point in the subprogram 
being CALLed. 


(b) Each of the identifiers in the USING clause of the CALL statement must 
be a reference to a 77- or 01-level data item in the File, Working-Storage, 
or Linkage Section of the CALLing program. 


(c) Procedure-name, file-name, and sort-name can be used only if the CALLed sub- 
program is written in a language other than COBOL. 


(d) If the subprogram is written in COBOL, there are two ways to CALL the 
subprogram, depending on the entry point of the subprogram: 









UP-7709 
Rev. 2 





6.7.11. 


(2) 


(3) 


(4) 


UNIVAC 9400 COBOL 


18 
SUPPLEMENTARY REFERENCE 


w If the entry point is the beginning of the Procedure Division (USING after 
the division header), then entry-name in format 1 must be the same as the a 
PROGRAM-ID of the CALLed subprogram. 


m If the entry point in the subprogram is designated by the ENTRY statement 
(format 2), then the entry-name in format 1 must be the same as the entry- 
name in format 2. 


(e) If the CALLed program is written in assembler language, entry points are 
labels specified by assembler directive ENTRY or labels of START and 
CSECT assembler directives. 


Format 2 is used in the CALLed subprogram to designate an ENTRY point; 
it may not appear in the Declaratives portion. 


(a) If the CALLing program is written in COBOL, entry-name in format 2 
must be the same as entry-name in format 1. 


(b) Data-name can be neither qualified nor subscripted. 


(c) Data-names are the names of 01- or 77-level data items specified in the 
Linkage Section of this particular subprogram. 


(d) The sequence of appearance of the operands in the two USING clauses 
is extremely significant since corresponding operands refer to a single 
common data item, i.e., correspondence is by position and not by name. 
Each reference to an operand in the CALLed program’s USING clause 
is treated as if it were a reference to the corresponding operand in the 
USING clause of the CALLing program. 


Format 3 is used in the CALLed subprogram to return control to the CALLing 
program. 


(a) All COBOL subprograms must contain this clause. 


(b) Control returns to the point in the CALLing program immediately following 
the CALL statement. 


(c) The EXIT PROGRAM or RETURN options are equivalent. RETURN is 
included for compatibility with other COBOL implementations. 


See Appendix F for sample CALLing and CALLed programs. 


ENTRY 


Function: 


The ENTRY statement is used in conjunction with the ENTER statement ina 


CALLED program to establish an entry point. 


Format: 


ENTRY entry-name [ USING unqualified data-name. . “te Zi 


Rules: 


See 6.7.10. 
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EXAMINE 
Function: 


The EXAMINE statement replaces or counts the number of occurrences of a given 
character in a data item. 


Format: 


ALL 


TALLYING ¢ LEADING literal-1 [REPLACING BY literal-2] 
UNTIL FIRS 


EXAMINE identifier 


ALL 
REPLACING ¢ LEADING literal-3 BY literal-4 
{UNTIL] FIRST 


Rules: 


(1) The description of the identifier must be such that USAGE IS DISPLAY 
(explicitly or implicitly). 


(2) Each literal must consist of a single character belonging to a class consistent 
with that of identifier. A literal may be any figurative constant except ALL. 


(3) Examination of identifier proceeds as follows: 


(a) Nonnumeric: Examination starts at the leftmost character and proceeds to 
the right; each character is examined individually. 


(b) Numeric: Examination starts at the leftmost character and proceeds to 
the right. Each character except the sign (which is ignored) is examined 
individually. 


(4) The count derived as a result of the TALLYING option is placed in a special 
register called TALLY. Depending upon which option is selected, the count 
represents the following: 


(a) ALL option: The number of occurrences of literal-1. 


(b) LEADING option: The number of occurrences of literal-1 prior to encountering 
a character other than literal-1. 


(c) UNTIL FIRST option: The number of occurrences of characters not equal 
to literal-1 encountered before the first occurrence of literal-1. 


(S) When either of the REPLACING options is used, the replacement rules are 
as follows: 


(a) ALL option: Literal-2 or literal-4 substituted for each occurrence of 
literal-1 or literal-3. 


(b) LEADING option: The substitution of literal-2 or literal-4 terminates as 
soon as a character, other than literal-1 or literal-3, is encountered. 
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(c) UNTIL FIRST option: The substitution of literal-2 or literal-4 terminates 
as soon as literal-1 or literal-3 is encountered. 


(d) FIRST option: The first occurrence of literal-1 or literal-3 is replaced by 
literal-2 or literal-4, 


6.7.13. EXIT 
Function: 


The EXIT statement provides a common end point for a series of procedures, or 
marks the logical end of a called program. 


Format: 


EXIT [PROGRAM] 


Rules: 


(1) The EXIT statement must be preceded by a paragraph-name and be the only 
sentence in the paragraph. The EXIT statement must appear in a sentence 
by itself. 


(2) The point to which control is transferred may be at the end of a range of 
procedures governed by a PERFORM or at the end of a Declarative Section. 
The EXIT statement is provided to enable a procedure-name to be associated 
with such a point. 


(3) If control reaches an EXIT statement without the optional word PROGRAM, oa 
and no associated PERFORM or USE statement is active, control passes 
through the EXIT point to the first sentence of the next paragraph. 


(4) If control reaches an EXIT PROGRAM statement while operating under the 
control of a CALL statement, control returns to the point in the.calling program 
immediately following the CALL statement. 


6.7.14. GO TO 
Function: 


The GO TO statement causes control to be transferred from one part of the Procedure 
Division to another, GO TO (format 3) is used as a special exit from a USE 
procedure. 


Formats: 

Format 1: 

GO TO [procedure-name] 

Format 2: 

GO TO procedure-name-1 [, procedure-name-2]... , procedure-name-n 
DEPENDING ON ‘dentifier eek 
Format 3: 


GO TO MORE-LABELS 
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Rules: Se 
S 

(1) Each procedure-name is the name of a paragraph or section in the Procedure 
Division of the program. 

(2) Identifier is the name of a numeric elementary item described without any 
positions to the right of the assumed decimal! point. 

(3) When format 1 is used, control is transferred to procedure-name or to another 
procedure-name if the GO TO statement has been affected by an ALTER 
statement. 

(4) If procedure-name is omitted in format 1, an ALTER statement referring to this 
GO TO statement must be executed prior to execution of this GO TO statement. 

(5) In order for a GO TO statement to be ALTERable, it must be the only statement in 
a paragraph. Only format 1 may be ALTERed. 

(6) When a GO TO statement is ALTERed, control is transferred to the new procedure- 

Pp 
name each time the GO TO statement is executed, until the GO TO statement is 
ALTERed again with a different procedure-name. 

(7) When format 2 is used, control is transferred to procedure-name-1, procedure-name-2, 
...procedure-name-n, DEPENDING ON the value of identifier being 1, 2,...,n. 
If the value of identifier is greater than n or equal to zero, control is passed to 
the sentence following this statement. 

(8) Format 3 causes control to be transferred from a USE procedure to the I-O 


control system. The following rules apply to the GO TO MORE-LABELS 
option: 


(a) Format 3 can appear only within a label-processing section in the 
declarative portion. 


(b) When an input file is being processed, format 3 is a request to the I-O 
control routine to make the next standard user label record available, and 
transfer control to the beginning of the USE procedure. If there are no more 
labels to be processed, control is returned to the Procedure Division. 


(c) When an output file is being processed, format 3 requests the I-O control 
routine to write the label in the user label area and return control to the 
first statement in the USE procedure so as to permit another label record 
to be created in the user label area. 
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IF 
Function: a 
The IF statement causes a condition to be evaluated. The subsequent action of 
the object program depends on whether the value of the condition is true or false. 
Format: 
: 2 
IF pate. statement-1 _ J ELSE statement- 
LF condition; (THEN | Next seNTENCE| |? |OTHERWISE*| | NEXT SENTENCE 
Rules: 


(1) Statement-1 and statement-2 represent either a conditional statement or an 
imperative statement. 


(2) The NEXT SENTENCE phrase may be omitted if it immediately precedes the 
terminal period of the sentence. 


(3) Execution of an IF statement takes the following action: 


(a) Condition TRUE: Statements immediately following the condition 
(statement-1) are executed; control then passes implicitly to the next 
sentence, 


(b) Condition FALSE: Either statement-2 is executed or, if ELSE is 
omitted, the next sentence is executed. 


(4) Statement-l and statement-2 may contain an IF statement, and the IF is 
considered nested. IF statements within IF statements are considered as paired 
IF and ELSE combinations, proceeding from left to right. Thus, any ELSE 
encountered is considered to apply to the immediately preceding IF that has 
not been already paired with an ELSE. 


(5) When control is passed to the next sentence, it is transferred to the next 
sentence as written or to a return mechanism of a PERFORM or a USE 
statement. 


(6) The condition in an IF statement causes the object program to select between 
alternate control paths, depending on the truth value of a test. There are five 
possible types of conditions: 


gm relation condition 
w class condition 


m™ condition-name (restricted in basic compiler, see 5.3.12) 


@ switch-status condition 
@ sign condition 


These conditions are discussed under rules 7 through 11. 


*OTHERWISE is an extension to American National Standard COBOL. = 
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The logical operators (extended compiler only) used in combination with 
these conditions are: 


g OR 
a AND 
a NOT 


Table 6—1 indicates the relationship between the logical operators and conditions 
A and B. 


CONDITION CONDITION AND VALUE 
PAs die = 4 IF A AND B tF A ORB IF NOTA 


TRUE | TRUE TRUE TRUE FALSE 


FALSE | TRUE FALSE TRUE TRUE 
TRUE | FALSE FALSE | true | ratse | 


FALSE | FALSE FALSE FALSE TRUE 


Table 6~1. Logical Operator/Condition Relationships 








The ways in which conditions and logical operators may be combined are shown 
in Table 6—2. 


FIRST SECOND SYMBOL 


srupon [edn] OWT aD] wor] C [7 
ae ae ee eee 





Table 6-2. Logical Operator/Condition Combinations 


(7) Relation Condition 


A relation condition causes a comparison of two operands, each of which may 
be an identifier, a literal, or an arithmetic expression. General format for a 
relation condition is: 


identifier-1 identifier-2 
literal-1 relational-operator literal-2 


arithmetic-expression-1 arithmetic-expression-2 
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The first operand is called the subject of the condition; the second operand 
is called the object of the condition. The subject and object may not both be 
literals. The relational-operator specifies the type of comparison to be made 
in a relational condition. The relational-operators and the format in which 
they are used is: 


igiNOT] GREATER me 
[NOT] > 


NOT] LE HA 
identifier-1 Dees BESS : | identifier-2 


literal-1 [NOT] < literal-2 
arithmetic-expression-1 eee EQUAL TO arithmetic-expression-2 


[NOT] = 


EQUALS* 
UNEQUAL* 
EXCEEDS* 


When relation conditions are written in a consecutive sequence, any relation 
condition except the first may be abbreviated by: 


(a) The omission of the subject of the relation condition, or 


(b) The omission of the subject and relational operator of the relation condition. 
Within a sequence of relation conditions both forms of abbreviation may be 
used, The effect of using such abbreviations is as if the omitted subject 


was replaced by the last preceding stated subject, or the omitted relational 
operator was replaced by the last preceding stated relational operator, 


Ambiguity may result from using NOT in conjunction with abbreviations. 
In this event, NOT will be interpreted as a logical operator rather than as part 
of a relational operator. Thus: 


A> BAND NOT> CORD 
is equivalent to: 
A>BANDNOTA>CORA>D>D 


or 


A>BAND (NOT A>C)ORA>D 


Comparison of the various types of operands is accomplished as follows: 


(a) Numeric Operands 


For numeric operands comparison is made with respect to the algebraic 
value of the operands. The number of digits in the operands is not 
significant. Zero is considered a unique value regardless of the sign. 


*American National Standard COBOL extensions. 
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Comparison of these operands is permitted regardless of their usage. 
Unsigned numeric operands are considered positive for purposes of 
comparison. 


Nonnumeric Operands 


For nonnumeric operands or one numeric and one nonnumeric operand, a 
comparison is made with respect to a specified collating sequence of 
characters. 


The size of an operand is the total number of characters in the operand. 
Numeric and nonnumeric operands may be compared only when their usage 
is the same. The two cases to be considered are operands of equal size 
and operands of unequal size. — 


m Operands of Equal Size 


Corresponding character positions are compared, starting from the high 
order end and continuing until either a pair of unequal characters is 
encountered or the low order end of the item is reached, whichever 

comes first. The items are determined to be equal if all pairs of characters 
are equal. 


The first encountered pair of unequal characters is compared for 
relative location in the UNIVAC 9400 collating sequence (see Appendix 
A for hexadecimal values of characters). The operand which contains 
that character which is positioned higher in the UNIVAC 9400 collating 
sequence is determined to be the greater operand. 


m Operands of Unequal Size 


Comparison proceeds as though the shorter operand was extended on 
the right by sufficient spaces to make the operands of equal size. 


Index-Names and/or Index Data-Items 


m Two Index-Names 


The result is the same as if the corresponding occurrence numbers are 
compared. 


mw Index-Name and Data-Item or Literal 


The occurrence number that corresponds to the value of the index-name 
is compared to the data-item or literal, both of which must be elementary 
unsigned integers. 


mg Index Data-Item and Index-Name or Two Index Data-Items 
The actual values are compared without conversion. 


The result of the comparison of an index data-item with any data-item or 
literal not specified above is undefined. 
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SECTION: 


(8) Class Condition si 


The class condition determines whether the operand is numeric or alphabetic. 
The general format for the class condition is: 


; mae NUMERIC 
IF identifier |$ Nor} NNER BETICY 


The operand being tested must be described, implicitly or explicitly, as 
USAGE IS DISPLAY. 


mw Numeric Test 


Identifier can be described as alphanumeric or numeric. If the record description 
of the item being tested does not contain an operational sign, the item is con- 
sidered numeric only if the contents are numeric and a sign is not present. 


m Alphabetic Test 


Identifier must be described as alphabetic. The item being tested is con- 
sidered alphabetic only if the contents consist of any combination of the 
characters A through Z and the space. 


(9) Condition-Name Condition 


A conditional variable is tested to determine whether its value is equal to one 
of the values associated with a condition-name. In the extended compiler a 
condition-name may be associated with a range(s) of values; the conditional 
variable is then tested to determine whether its value falls within this range 
of values. 


The format for a condition-name condition is: 


IF [NOT] condition-name 


(10) Switch-Status Condition 


Determines the ON or OFF status of a switch as described in 4,2.3 (10). The 
condition-name specified in the ON or OFF STATUS IS option is tested in the 
following format: 


> IF [NOT] condition-name 


(11) Sign Condition 


Determines whether the algebraic value of a numeric operand is less than, 
greater than, or equal to zero. An operand is positive if its value is greater 
than zero, negative if its value is less than zero, and zero if its value is 
equal to zero. The format for a sign condition is: 


identifier See 
IE oe. \ IS (NOT! NEGATIVE 
ZERO 
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INSERT 


The INSERT statement is available in the extended compiler only and is an 
extension to American National Standard COBOL. 


Function: 
The INSERT statement is used to add a logical record to indexed and direct 


access files. 


Format: 


INSERT record-name [F ROM identifier-1] INVALID KEY imperative-statement 


Rules: 


(1) The INSERT verb can be used only when ACCESS IS RANDOM and ORGANI- 
ZATION IS DIRECT or INDEXED. 


(2) A file must be OPENed prior to execution of the first INSERT statement for 
that file. 


(3) The record-name is the name of a logical record in the File Section of the 
Data Division and must not be part of a sort file. 


(4) When the FROM option is used, data is moved from identifier-l1 to record-name 
according to the rules specified for the MOVE verb without the CORRESPOND- 
ING option. 


(5) After the INSERT is executed, information in record-name is no longer available, 
but identifier-1 information is available. 


(6) The INVALID KEY is used for processing direct access files. In random 
access mode, the INSERT performs the function of a SEEK statement prior 
to writing. The imperative-statement is executed when the contents of the 
KEY(s) being used to locate the record is found to be invalid. 
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6.7.17. MOVE 





Function: ee 
The MOVE statement transfers data, in accordance with the rules of editing, to one 
or more data areas. 
Formats: 
Format 1: 
identifier-1 . or : sae 
MOVE, 2ouirrer TO identifier-2 [, identifier-3]... 
literal-] 
Format 2: 
MOVE CORRESPONDING identifier-1 TO identifier-2 
—=—— 1 CORR 
Rules: 
(1) If the CORRESPONDING option is used, selected items within identifier-1 
are moved to selected items within identifier-2 according to rule (8) in 6.6.1 
except that identifiers need not be numeric and may be either 
(a) both elementary items, or 
(b) one elementary item and one group item, 
Only one identifier may appear to the right of the word TO, and the results ab 


are the same as if the user had referred to each pair of corresponding identi- 
fiers in separate MOVE statements. 


(2) When moving to more than one area, the data designated by literal-1 or identifier-1 
is moved first to identifier-2, then to identifier-3, etc. 


(3) Any MOVE in which both the sending and receiving items are elementary items 
is an elementary MOVE. Every elementary item belongs to one of the following 
categories: 


@ numeric 

a alphabetic 

a alphanumeric 
@ numeric edited 


m alphanumeric edited 
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Table 6-3 shows legal categories of sending and receiving fields: 


RECEIVING 
SENDING 
Numeric Alphanumeric 
Alphabetic Alphanumeric Edited Edited 


Alphabetic | No 
: 
















YES 


YES 
ES 
ee 
YES 





Y 


* A numeric item whose implicit decimal point is not immediately to the right of the least 





significant digit must not be moved to an alphanumeric or alphanumeric edited data item. 


Table 6-3. Sending and Receiving Fields 
(4) The following rules apply to legal elementary moves: 


(a) When the receiving field is alphanumeric edited, alphanumeric, or alpha- 
os betic, justification and any necessary spacefilling takes place as defined 
under the JUSTIFIED clause. If the size of the sending item is greater 
ee than the size of the receiving item, the excess characters are truncated 
after the receiving item is filled. 


(b) When the receiving field is a numeric or numeric edited item, alignment 
by decimal point and any necessary zerofilling takes place, except where 
zeros are replaced because of editing requirements. If the receiving item 
has no operational sign, the absolute value of the sending item is used. 
Truncation occurs if the sending item has more digits to the left or right 
of the decimal point than the receiving item can contain. The result at 
object time is undefined if the sending item contains any nonnumeric 
characters. 


(c) Any necessary conversion of data from one form of internal representation 


to another takes place during the move, along with any specified editing in 
the receiving item. 


(d) When the sending field is an edited item, it will be treated as an alphanumeric 
item. 


(e) An index data item cannot appear as an operand in a MOVE statement. 


(5) Any MOVE that is not an elementary MOVE is treated as if it were an alpha- 
numeric to alphanumeric elementary MOVE, except that there is no conversion 
of data from one form of internal representation to another. 


(6) The figurative constant ZERO (ZEROS, ZEROES) belongs to the numeric 
category. The figurative constant SPACE (SPACES) belongs to the alphabetic 
category. All other figurative constants belong to the alphanumeric category. 
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6.7.18. MULTIPLY 


Function: 


The MULTIPLY statement causes numeric data items to be multiplied and sets 
the value of a data item equal to the results. 


Formats: 


Format 1: 


MULTIPLY | #entifier-t 1 By jdentitier-2 [ROUNDED] 
SS j literat-l oor Oo 


[; ON SIZE ERROR imperative-statement] 


Format 2: 


MULTIPLY identifter-1 BY } identifier-2 


literal-1 literal-2 





GIVING identifier-3 [ROUNDED] 
[; ON SIZE ERROR imperative-statement] 


Rules: 


(1) Only identifier-3, in format 2 may refer to a data item that contains editing 
symbols. All other identifiers must refer to numeric elementary items. 


(2) Each literal must be a numeric literal. 


(3) When format 1 is used, the initial value of identifier-1 is multiplied by the 
initial value of identifier-2. The value of the multiplier (identifier-2) is replaced 
by the product resulting from operation on that identifier. 


(4) When format 2 is used, the initial value of identifier-1 or literal-1 is multiplied 
by identifier-2 or literal-2, and the result is stored in identifier-3. 


(5) The maximum size of each operand is 18 decimal digits. 
(6) For a description of the ROUNDED and SIZE ERROR option, see 6.6.1. 


6.7.19 NOTE 
Function: 


The NOTE sentence allows COBOL programmers to write commentary which will 
be produced on the listing, but not compiled. 


Format: 


NOTE character-string. 
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Rules: 


(1) 


(2) 


(3) 


Any combination of the characters from the UNIVAC 9400 System character 
set may be included in the character-string. 


If a NOTE sentence is the first sentence of the paragraph, the entire paragraph 
is considered to be part of the character-string whereas a comment line (see 
Table 2-3) is not. 


If a NOTE sentence appears as other than the first sentence of a paragraph, the 
commentary ends with the first occurrence of a period followed by a space. 


6.7.20. OPEN 


Function: 


The OPEN statement initiates the processing of both input and output files. It 


initiates checking and/or writing of labels and other input-output operations. 


F ormat: 
REVERSED 

INPUT < file-name WITH NO REWIND (" . 
OPEN 

OUTPUT ;¢ file-name (WITH NO REWIND] . ee 

|-O {file-name}... 
Rules: 
(1) At least one of the options INPUT, OUTPUT, or I-O must be specified. 


(2) 
(3) 


(4) 
(5) 
(6) 


(7) 


(8) 


These options may appear in any order. 


The I-O option pertains only to mass storage files. 


The REVERSED and NO REWIND options apply only to sequential single 
reel processing. 


The OPEN statement must be applied to all files except sort files. 
File-name refers to the FD name in the File Section of the Data Division. 


The OPEN statement for a file must be executed prior to the first READ, 
INSERT, REWRITE, SEEK, or WRITE statement for that file. 


A second OPEN statement for a file must not be executed prior to the 
execution of a CLOSE statement for that file. 


The OPEN statement does not obtain or release the first data record. When 
checking or writing labels, the user’s beginning label subroutine will be ex- 
ecuted if one has been specified by a USE statement. 
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PERFORM 
Function: 


This verb permits a temporary departure from the normal sequence of execution in 

order to execute one or more procedures, either a specified number of times or until 
a specified condition is satisified, after which control is automatically returned to 
the normal sequence. Formats 3 and 4 are available only in the extended compiler. 


Formats: 
Format 1: 


PERFORM procedure-name-1 [THRU procedure-name-2] 


Format 2: 

PERFORM procedure-name-1 [THRU procedure-name-2] eat! TIMES 
integer-1 

Format 3: 


PERFORM procedure-name-1 [THRU procedure-name-2] UNTIL condition-1 


Format 4: 
PERFORM procedure-name-I [THRU procedure-name-2]| 


index-name-2 


VARYING J index-name-l eR OM J iteral-2 
~~ Uidentifier-1 $ "| i acntitier-2 


Y § literal-3 


l de 
BY 4 identifier-3 § UNTIL condition-1 


oO 





. index-name-5 | 
AFTER once \ FROM Meat ( 


ae identifier-5 


IZ 


‘ literal-6 


identifier-6 


\ UNTIL condition-2 


index-name-8 


AFTER J index-name-7 ERO J titeral-8 
———~ lidentifier-7 J) ——~ ) identifier-8 


hs 
~< 


4 literal-9 \ UNTIL conditional 


lidentifier-9 § ——— 


Rules: 


(1) Each procedure-name is the name of a section or paragraph in the Procedure 


Division. 


(2) Each identifier represents a numeric elementary item described in the Data 
Division. In format 2, and format 4 with the AFTER option, each identifier 
represents a numeric item with no positions to the right of the assumed decimal 


point. 
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SECTION: 


Each literal represents a numeric literal. 


When the PERFORM statement is executed, control is transferred to the first 
statement after procedure-name-1. An automatic return to the statement following 
the PERFORM statement is established as follows: 


(a) If procedure-name-1 is a paragraph-name and procedure-name-2 is not specified, 
return is after the last statement of procedure-name-l. 


(b) If procedure-name-1 is a section name and procedure-name-2 is not specified, 
return is after the last statement of the last paragraph in procedure-name-l. 


(c) If procedure-name-2 is a: 
m@ paragraph-name, return is after the last statement of the paragraph, 


m section-name, return is after the last sentence of the last paragraph in 
the section. 


If there are two or more direct paths to a return point in a group of procedures 
being PERFORMed, then procedure-name-2 may be the name of a paragraph 
consisting of the EXIT statement, to which all these paths must lead. If control 
passes to these procedures by means other than a PERFORM statement, 
tegardless of use of EXIT, control passes through the last statement of the 
procedure to the following statement. 


Format 1 is the basic PERFORM statement. A procedure referred to by this type 
PERFORM is executed once after which control is passed to the statement 
following the PERFORM statement. 


Format 2 is the TIMES option. When the TIMES option is used, the procedures 
are PERFORMed the number of times specified by identifier-1 or integer-1. 
Control is then transferred to the statement following the PERFORM statement. 
The value of identifier-1 or integer-1 must not be negative, and if the value is 
zero, control passes immediately to the statement following the PERFORM 
statement. Once the PERFORM statement has been initiated, any reference to 
identifier-1 has no effect in varying the number of times the procedures are 
executed. 


Format 3 is the UNTIL option. The specified procedures are PERFORMed 
until the condition specified by the UNTIL option is true. Then, control is 
transferred to the statement following the PERFORM statement. Note that 
if the condition specified by the UNTIL option is true at the beginning of 
the execution of the PERFORM statement, control passes to the statement 
following the PERFORM statement. 


Format 4 is the VARYING option. This option is used to change the value of 
one or more identifiers or index-names during the execution of a PERFORM 
statement. When index-names are used, the FROM and BY clauses have the 
same effect as in a SET statement. In rules 10 through 12, reference to iden- 
tifier as the object of VARYING and FROM phrases also refers to index-name. 
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(10) When one identifier is varied: 


(a) Identifier-1 is set to its initial value, either identifier-2 or literal-2. 


(b) If condition-1 is false, the sequence of procedures is executed once, and 
the value of identifier-1 is incremented or decremented by identifier-3 or 
literal-3, and condition-1 is evaluated again. This cycle continues until 
condition-1 is true, after which control is passed to the statement following 
the PERFORM statement. 


(c) If condition-1 is true at the beginning of execution of the PERFORM 
statement, control passes directly to the statement following the PERFORM 
statement. 


(11) When two identifiers are varied: 
(a) Identifier-1 and identifier-4 are set to their initial values, identifier-2 and 
identifier-5, respectively. During execution, these initial values must be 


positive. 


(b) Condition-1 is evaluated. If true, control is passed to the statement following 
the PERFORM statement. If false, condition-2 is evaluated. 


(c) If condition-2 is false, the sequence of procedures is executed once, after 
which identifier-4 is changed by identifier-6, and condition-2 is evaluated 
again. This cycle continues until condition-2 is true. 


(d) When condition-2 is true, identifier-4 is set to its initial value (identifier-5), 
identifier-1 is changed by identifier-3, and condition-1 is reevaluated. 


(e) The PERFORM statement is completed when condition-1 is true; if false, 
the cycle continues until condition-1 is true. 


(f) Figure 6—1 illustrates the logic of the PERFORM statement when two 
identifiers are varied: 


I, = identifier 

Lae literal 

om = condition 

Py procedure-name 


(g) At the termination of this PERFORM statement, identifier-4 contains its 
initial value, while identifier-1 contains a value that differs from the last 
used setting by an increment or decrement depending on identifier-3. If 
condition-l was true when the PERFORM statement was initiated, identifiers-1 
and -4 contain their initial values. 
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SET 

ee 
1, to ly [Lo] 
1, to 1, (ts! 





TRUE 
EXIT 


FALSE 


TRUE INITIALIZE VARY 


1, tot, (Lg) i, by ty [Lg] 





FALSE 


EXECUTE 


P, [THRU P,] 


VARY 


1, by Ig [Lg] 





Figure 6-1. PERFORM Logie: Varying Two Identifiers 


(12) When three identifiers are varied: 


(a) Logic is the same as for two identifiers, except that identifier-7 goes 
through a complete cycle each time identifier-4 is changed by identifier-6 
which, in turn, goes through a complete cycle each time identifier-1 is 
varied. 


(b) Figure 6—2 illustrates the logic of the PERFORM statement when three 
identifiers are varied: 


I, = identifier 
Laz literal 
Cy= condition 


Py procedure-name 


At the termination of this PERFORM statement, identifier-4 and identifier-7 
contain their initial values, while identifier-1 contains a value that differs 
from the last used setting by an increment or decrement depending on 
identifier-3. If condition-1 was true when the PERFORM statement was 
initiated, identifier-1, identifier-4, and identifier-7 each contains its 

initial value. 
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Y (13) A PERFORM statement within a section which has a priority number less 
than the SEGMENT-LIMIT can have within its range only the following: — 


(a) Sections with priority numbers of less than 50. 


(b) Sections wholly contained in a single segment whose priority number 
is greater than 49. 


(14) A PERFORM statement that appears in a section which has a priority number 
greater than the SEGMENT-LIMIT can have within its range only the 
following: 


(a) Sections with the same priority number as the section containing the 
PERFORM statement. 


(b) Sections with a priority number less than the SEGMENT-LIMIT. 


(15) Independent segments are made available in their initial state. Fixed 
4 overlayable segments are made available in their last used state. 


SET 


t; to ly or Ly 


\4 to '5 or Ls 
17 to Ig or Lg 





INITIALIZE VARY 







'4 to 1, or ls 1, by Ig or Ly 













TRUE INITIALIZE VARY 


1, to Sg or Ly "4 by 4g ole 












EXECUTE 
PI THRU P,| 










VARY 





I, by Ig or Lg 





Figure 6-2, PERFORM Logic: Varying Three Identifiers 
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If a sequence of statements referred to by a PERFORM statement includes 
another PERFORM statement, the sequence of procedures associated with 
the included PERFORM must itself either be totally included in, or totally 
excluded from, the logical sequence referred to by the first PERFORM. 
Thus, an active PERFORM statement, whose execution begins within the 
range of another active PERFORM statement, must not allow control to 
pass to the exit of the other PERFORM statement; furthermore, two or more 
such active PERFORM statements may not have a common exit. 


READ 


Function: 


For sequential file processing, the READ statement makes available the next 
logical record from an input file and allows performance of a specified imperative- 


statement when end of file is detected. 


For mass storage files in the random access mode, the READ statement makes 
available a.specific record from a direct access device, and allows performance 
of a specified imperative-statement if the contents of the associated KEYS are 
found to be invalid. 


Format: 


READ file-name RECORD [INTO identifier] 


{AT END | 
tINVALID KEYJ 


imperative-statement 





Rules: 


(1) 


(2) 


(3) 


(4) 


(5) 


(6) 


(7) 


(8) 


An OPEN statement must be executed for a file prior to the execution of the 
first READ statement for that file. 


When a file consists of more than one type of record, the records automatically 
share the same storage area. 


If, while processing a sequential file, the logical end of the file is reached 
during the execution of a READ statement, the statement specified in the AT 
END phrase is executed. After the execution of this phrase, a READ statement 
for that file must not be initiated without prior execution of a CLOSE and an 
OPEN statement for that file. 


If an OPTIONAL file is not present, the imperative-statement in the AT END 
phrase is executed on the first READ. 


The READ statement performs the functions of the SEEK statement implicitly for 
random access files. 


If a direct access file (INPUT or I-O) in the random access mode is contained 
on more than one physical unit, any end of unit procedures are the responsibility 
of the user. 


The INTO option may be used only when the input file contains just one size 
record, and file-name cannot be the name of a sort file. Moving INTO will be 
performed according to the rules specified for the MOVE verb, without the 
CORRESPONDING option. 


Data items of a logical record cannot be accessed prior to the READ of the 
associated record. (The record area may not be accessed prior to a READ.) 
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RELEASE 
Function: 


The RELEASE statement, available with the extended compiler only, transfers records 
to the initial phase of a sort operation. 


Format: 
RELEASE record-name [FROM identifier] 


Rules: 


(1) Record-name must be named in the DATA RECORDS clause of its associated 


sort file. 


(2) Identifier in the FROM option must refer to a data item in Working-Storage or 


in an input record area. 


(3) The identifier and record-name must name different data items. 


‘4) If the FROM option is used, the contents of identifier is moved to record-name, 
then the contents of record-name is released to the sort file. Moving takes place 
according to the rules specified for the MOVE statement without the CORRESPOND- 
ING option. The information in the record area is no longer available, but the 
information in identifier is available. 


RETURN 

Function: 

The RETURN statement, available with the extended compiler only, obtains 
sorted records from the final phase of the sort operation. 

Format: 


RETURN file-name RECORD [INTO identifier] ; AT END imperative-statement 


Rules: 


(1) File-name must be a sort file with an SD entry in the Data Division. 


(2) A RETURN statement may only be used within the range of an output procedure 
associated with a SORT statement for file-name. 


(3) The identifier in the INTO option must be the name of a Working-Storage area 
or output record area, and the output file must.contain only one type of record. 
The data is available in both the output record area and the identifier area. 


(4) The execution of a RETURN statement causes the next record to be made 
available in the order specified by the KEYs listed in the SORT statement for 
processing in the record area associated with the sort file. 


(5) Moving is performed according to the rules specified for the MOVE statement 
without the CORRESPONDING option. 


(6) After execution of the AT END phrase, no RETURN statements may be exe- 
cuted within the current output procedure. 
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6.7.25. REWRITE 


Function: 


This verb is an extension to American National Standard COBOL. It performs the 
same function as the WRITE statement and is provided for compatibility only. 


Formats: 
Format 1: 
REWRITE record-name [FROM identifier] 
Format 2: 


REWRITE record-name [FROM identifier] INVALID KEY imperative-statement 


Rules: 


(1) A file must be OPENed prior to execution of the first REWRITE statement 
for that file. 


(2) The record-name is the name of a logical record in the File Section of the 
Data Division and must not be part of a sort file. 


(3) When the FROM option is used, data is moved from identifier-1 to record-name 
according to the rules specified for the MOVE verb without the CORRESPOND- 
ING option. 


(4) After the REWRITE is executed, information in record-name is no longer 
available, but identifier-1 information is available. 


(5) The INVALID KEY option in format 2 is used for processing direct access files. 


(a) In sequential access mode, the imperative-statement is executed when the 
end of the last segment of the file is reached and an attempt is made to 
execute a REWRITE for that file. 


(b) In random access mode, the REWRITE performs the function of a SEEK 
statement prior to writing. The imperative-statement is executed when 
the contents of the KEY(s) being used to locate the record is found to be 
invalid. 
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Y 6.7.26. SEARCH 
Function: hice 
The SEARCH statement is used to search a table for a table-element that satisfies 
the specified condition and to adjust the associated index-name to indicate that 
table-element. 
Formats: 
Format 1: 
SEARCH identitice?’| VARYING. in@expamet 
———— —— | identifier-2 
[; AT END imperative-statement-1 | 
; spc imperative-statement-2 
; WHEN condition |Next SENTENCE 
: ee imperative-statement-3 
: WHEN condition 2 NET SENTENCE | 
Format 2: 
SEARCH ALL identifier-1 [; AT END imperative-statement-1] 
; diftenss imperative-statement-2 
a SHEN cones |Wext SENTENCE : 
—— oe, 


Rules: 


(1) In both formats 1 and 2, identifier-1 must not be subscripted or indexed, but its 
description must contain an OCCURS clause and an INDEXED BY clause. The 
description of identifier-l in format 2 must also contain the KEY IS phrase in 
its OCCURS clause. 


(2) Identifier-2 , when specified, must be described as USAGE IS INDEX orasa 
numeric elementary data item without any positions to the right of the assumed 
decimal point. 


(3) In format 1, condition-1, condition-2, etc., may be any condition as described 


in 6.7.15. 


(4) In format 2, condition-1 may consist of a relation condition incorporating the 
relation EQUALS or EQUAL TO or equal sign, or a condition-name condition, 
where the VALUE clause that describes the condition-name contains only a 
Single literal. Alternatively, condition-1 may be a compound condition formed 
from simple conditions of the type just mentioned, with AND as the only 
connective. Any data-name that appears in the KEY clause of identifier-l 
may appear as the subject or object of a test or be the name of the conditional 
variable with which the tested condition-name is associated; however, all 
preceding data-names in the KEY clause must also be included within condition-l. 
No other tests may appear within condition-l. 
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(5) If format 1 of the SEARCH is used, a serial type of search operation takes place, 
Starting with the current index setting. 


(a) If, at the start of execution of the SEARCH statement, the index-name 
associated with identifier-1 contains a value that corresponds to an 
occurrence number that is greater than the highest permissible occurrence 
number for identifier-1, the SEARCH is terminated immediately. Then, if 
the AT END phrase is specified, imperative-statement-l is executed; if 
the AT END phrase is not specified, control passes to the next sentence. 


(b) If, at the start of execution of the SEARCH statement, the index-name 
associated with identifier-l1 contains a value that corresponds to an 
occurrence number that is not greater than the highest permissible occurrence 
number for identifier-l1 the SEARCH statement operates by evaluating the 
conditions in the order that they are written, making use of the index settings, 
wherever specified, to determine the occurrence of those items to be tested. 
If none of the conditions are satisified, the index-name for identifier-1 is 
incremented to obtain reference to the next occurrence. The process is 
then repeated using the new index-name settings unless the new value of 
the index-name settings for identifier-l1 corresponds to a table element 
which exceeds the last element of the table by one or more occurrences, in 
which case the search terminates as indicated in 5a. If one of the conditions 
is satisfied upon its evaluation, the search terminates immediately and the 
imperative statement associated with that condition is executed; the index- 
name remains set at the occurrence which caused the condition to be 
satisfied. 


(6) In a format 2 SEARCH, the results of the SEARCH ALL operation are predictable 
only when the data in the table is ordered in the same manner as described in 
the ASCENDING/DESCENDING KEY clause associated with the description of 
identifier-l. 


(7) If format 2 of the SEARCH is used, a nonserial type of search operation takes 
place, in which case the initial setting of the index-name for identifier-1 is 
ignored and its setting is varied during the search operation using a binary 
search technique. 


If condition-1 cannot be satisfied for any setting of the index within this 
permitted range, control is passed to imperative-statement-1 when the AT 

END phrase appears, or to the next sentence when this phrase does not 

appear; in either case the final setting of the index is set to the first occur- 
rence. If condition-1 can be satisfied, index indicates an occurrence that 
allows condition-1 to be satisfied and control passes to imperative-statement-2. 


(8) After execution of an imperative-statement-1, imperative-statement-2, or impera- 
tive-statement-3 that does not terminate with a GO TO statement, control passes 
to the next sentence. 


(9) In format 2, the index-name that is used for the search operation is the first 
(or only) index-name that appears in the INDEXED BY clause of identifier-1. 
Any other index-names for identifier-1 remain unchanged. 
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(10) In format 1, if the VARYING phrase is not used, the index-name that is used 


(11) 


(12) 


for the search operation is the first (or only) index-name that appears in the S 
INDEXED BY clause of identifier-1. Any other index-names for identifier-1 
remain unchanged. 


In format 1, if the VARYING index-name-l phrase is specified, and if indexe 
name-l appears in the INDEXED BY clause of identifier-l , that index-name 
is used for this search. If this is not the case, or if the VARYING identifier-1 
phrase is specified, the first (or only) index-name given in the INDEXED BY 
clause of identifier-1 is used for the search. In addition, the following opera- 
tions will occur: . 


(a) If the VARYING index-name-l phrase is used, and if index-name-l appears 
in the INDEXED BY clause of another table entry, the occurrence number 
represented by index-name-l is incremented by the same amount as, and 
at the same time as, the occurrence number represented by the index-name 
associated with identifier-1 is incremented. 


(b) If the VARYING identifier-2 phrase is specified, identifier-2 is incremented 
by the same amount as, and at the same time as, the occurrence number 
represented by the index-name associated with identifier-l is incremented. 
If identifier-2 has a USAGE IS INDEX clause, it is assumed to contain a 
value appropriate as an index setting for identifier-l. 


If identifier-l1 is a data item subordinate to a data item that contains an OCCURS 
clause (providing for a two- or three-dimensional table), an index-name must be 
associated with each dimension of the table through the INDEXED BY phrase 

of the OCCURS clause. Only the setting of the index-name associated with 
identifier-1 (and the data item identifier-2 or index-name-l, if present) is modi- 
fied by the execution of the SEARCH statement. To search an entire two- or 
three-dimensional table it is necessary to execute a SEARCH statement several 
times. Prior to each execution of a SEARCH statement, SET statements must 

be executed whenever index-names must be adjusted to appropriate settings. 


(13) Format 2 is available only in the extended compiler. 


A diagram of the Format 1 SEARCH operation containing two WHEN phrases follows. 


ee” 
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INDEX SETTING: 










> 
HIGHEST PERMISSIBLE AT END* IMPERATIVE- 
OCCURRENCE STATEMENT=1 
NUMBER 
< 
TRUE 
IMPERATIVE- 
eon STATEMEN T-2 sd 
FALSE 


TRUE 











IMPERATIVE- 
STATEMENT-3 






CONDITION-2 





INCREMENT INDEX- 
NAME FOR IDENTI- 
FIER-1 (INDEX-NAME-1 
1F APPLICABLE). 








INCREMENT INDEX- 
NAME-l (FORA 


DIFFERENT TABLE) 
OR IDENTIFIER-2. 





* These operations are options included only when specified in the SEARCH statement. 
** Each of these control transfers is to the next sentence unless the imperative-statement 
ends with a GO TO statement. 


Figure 6-3. SEARCH Logic 


SEEK 
Function: 


The SEEK statement initiates access of a mass storage data record for subsequent 
reading or writing and is available only in the extended compiler. 


Format: 


SEEK file-name RECORD 


PAGE: 
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Rules: 


(1) A SEEK statement pertains only to the disc files as specified in the 
following chart. 


ORGANIZATION ACCESS 
TYPE METHOD SEEK ALLOWED 
SEQUENTIAL SEQUENTIAL 

SEQUENTIAL 

RELATIVE 
RANDOM 
SEQUENTIAL YES 

DIRECT 
RANDOM 


SEQUENTIAL 


(2) The value of the identifier in the ACTUAL KEY clause is used by SEEK to 
determine the location of the record to be accessed when ORGANIZATION is 
RELATIVE or DIRECT. When ORGANIZATION IS INDEXED, the value of 
the identifier in the ACTUAL or SYMBOLIC key clause is used. 












INDEXED 


(3) Two SEEK statements for the same file may logically follow each other. Any 
validity check associated with the first SEEK is negated by the execution of 
a second SEEK statement. 


SET 
Function: 


The SET statement establishes reference points for table handling operations by 
setting index-names associated with table elements. 


Formats: 

Format 1: 
‘index-name-1 j index-name-2 literal-1 

SET J identifier-1 , identifier-2 hog FOr oe eee 
index-data-item-J index-data-item-2 a ade nentiee sy 


\ index-data-item-3 


P BY literal-1 
WN BY identifier-1 


Format 2: 


Eat 
o'u 





SECTION: PAGE: 
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SECTION: 


Rules: 


(1) All identifiers must be either index data items or numeric elementary items 
described as unsigned without any positions to the right of the assumed decimal 
point, except that identifier-1 in format 2 must not be an index-data-item. 


(2) All literals must be positive integers. 


(3) All index-names are considered related to a given table and are defined by 
being specified in the INDEXED BY clause. 


(4) In format 2, the contents of index-name-1, index-name-2 ... are incremented 
(UP BY) or decremented (DOWN BY) by a value that corresponds to the number 
of occurrences represented by the value of identifier-1 or literal-1. 


(5) The following paragraphs explain the allowable combinations of choices in the 
SET statement: 


(a) SET index-name-1 TO index-name-2 


The occurrence number value of index-name-2 is used to compute a new 
displacement value for index-name-1. Also, the occurrence number value 

of index-name-2 replaces that of index-name-1. If ‘‘length of one occurrence”’ 
is the same for both, no computation is necessary. 


(b) SET index-name TO index-data-item 


Same as (a), except that no computation takes place. If the value contained 
in the index-data-item does not correspond to an occurrence number of an 
element in the table indexed by index-name, the result is undefined. 
(c) SET index-name TO } ea 
— — }) literal 
When identifier or literal is a numeric data item and USAGE is not INDEX. 
The value of identifier or literal is treated as an occurrence number and is 
used to compute a new displacement value for index-name. Identifier or 
literal must be elementary unsigned integer. Also, the value of identifier 
or literal replaces the occurrence number value of index-name. 


(d) SET index-data-item-1 TO 


index-data-item-2 


Veale. 


MOVE with no conversion is executed. Index-data-item-1 has no associated 
table element length; therefore, there is no unique displacement value fora 
given occurrence number value. 


(e) SET identifier TO index-name 


The value of the occurrence number of index-name replaces the value of 
identifier with appropriate conversion to the data type of identifier; i.e., 
conversion of binary occurrence number to packed decimal. Rules for MOVE 
statement with integer numeric sending field apply. Identifier must be a 

= numeric data item, an alphanumeric data item, or a group item. 
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(6) Internal format of index-name and index-data-item: 
DISPLACEMENT 


DESCRIPTION OCCURRENCE NUMBER 
OF CONTENTS IN BINARY IN BINARY 
range 0 to 65,535 0 to 65,535 


\¢—_—__——_- bytes ——__——> 










Index-name items are ETT aligned, but index-data-items are not aligned. 


(7) Formula for calculating displacements for index-name: 


Displacement = (occurrence-number-1) X (length of one occurrence) 
6.7.29. SORT 


Function: 


The SORT statement creates a sort file by executing input procedures or by 
transferring records from another file. It sorts the records in the sort file on a 
set of specified keys, and makes each record from the sort file (in sorted order) 
available to some output procedures or to an output file. SORT is available only 
with the extended compiler. 


Format: 


DESCENDING 
SORT file-name-1 ON Ree cnpiie \ KEY ' data-name-t | see 


|:on{ CERIN \ KEY | dota-name-2 | nee iF oe 


veh UT PROCEDURE IS section-name-1 (THRU saa 


NG file-name-2 








jure PROCEDURE IS section-name-3 [THRU section- meee) 
GIVING file-name-3 


Rules: 


(1) File-name-1 must be described in an SD entry in the Data Division. 


(2) Each data-name must represent data items described in records associated 
with file-name-l1. Numeric display key items may not exceed 16 digits; other 
key items must not exceed 256 characters. Key data-names may not be des- 
cribed with an OCCURS clause nor may they be subordinate to an entry which 
contains an OCCURS clause. 


(3) Section-name-l and section-name-3 are names of an input and output procedure, 
respectively. 


(4) File-name-2 and file-name-3 must be described in an FD entry in the Data 
Division, They may not be described in an SD entry. However, the record 
format of file-name-2 and/or file-name-3 must be that specified for the sort 
file. The size of the logical record(s) described for file-name-2 and file-name- 
3 must be equal to the size of the logical record(s) described for file-name-1. 
File-name-2 and file-name-3 may not be described as containing undefined 
format records (RECORDING MODE IS U). 
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(5) A SORT statement may appear more than once in the Procedure Division of a 


program, but may not appear in the Declarative Section or in the input and 


output procedures associated with a SORT statement. 


(6) INPUT PROCEDURE 


(a) 


(b) 


(c) 


(d) 


(e) 
(f) 


(g) 


Must consist of one or more consecutive sections that do not form a part of 
any output procedure. 


Must include at least one RELEASE statement in order to transfer records 
to the sort file. 


RELEASE statements in the input procedure have no meaning unless they 
are controlled by a SORT statement; therefore, control must not be passed 
to the input procedure except when a related SORT statement is being 
executed. 


The input procedure can include any procedures needed to select, create, 
or modify records. 


The input procedure must not contain any SORT statements. 


ALTER, GO TO, and PERFORM statements are not permitted to refer to 
procedure-names outside the input procedure. 


ALTER, GO TO, and PERFORM statements in the remainder of the Procedure 
Division must not refer to procedure-names within the input procedure. 


(7) OUTPUT PROCEDURE 


(a) 


(b) 


(c) 


(d) 


(e) 


Must consist of one or more consecutive sections that do not form a part 
of any input procedure. 


Must include at least one RETURN statement in order to make sorted 
records available for processing. 


RETURN statements in the output procedure have no meaning unless they 
are controlled by a SORT statement; therefore, control must not be passed 
to the output procedure except when a related SORT statement is being 
executed. 


The output procedures can include any procedures needed to select, modify, 
or copy the records that are being returned one at a time in sorted order, from 


the sort file. 


Rules 6 (e), 6 (f), and 6 (g) also apply to the output procedures. 


(8) When the ASCENDING clause is used, the sorted sequence is from lowest 
value of KEY to highest value according to the UNIVAC 9400 System character 
collating sequence shown in Appendix A. The sorted sequence is reversed when 
the DESCENDING clause is used. In the format, data-name-l is the most signifi- 
cant key, data-name-2 is the next most significant key, and so on. 
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(9) The Record Description for every sort file must contain the KEY items data-name-1, 
data-name-2, and so on. When the KEY item appears in more than one record, the 
data descriptions must be equivalent and their starting position must always be the 
same number of character positions from the beginning of each record. Numeric 
display key items must not exceed 16 digits. Other key items must not exceed 256 
characters. 


(10) If INPUT PROCEDURE is specified, control is passed to section-name-1 before 
file-name-1 is sequenced by the SORT statement. When control passes the last 
statement of the input procedure, the records that have been released to file- 
name-l are sorted. 


(11) If the USING option is specified, all the records in the file-name-2 are transferred 
to the file-name-1. The SORT statement automatically performs the function of 
the OPEN, READ, USE, and CLOSE statements for file-name-2. File-name-2 
must be a sequential access file. 


(12) If OUTPUT PROCEDURE is specified, control passes to section-name-3 after 
file-name-1 has been sequenced by the SORT statement. When control passes 
the last statement of the output procedure, the sort is terminated and control 
is passed to the next statement after the SORT statement. The RETURN 
statements in the output procedure are the requests for the next sorted record. 


(13) If the GIVING option is specified, all the sorted records in file-name-1 are 
transferred to file-name-3 as the implied output procedure for this SORT 
statement. File-name-3 is automatically opened before transferring the records 
and closed after the last record in the sort file is returned. File-name-3 must 
be a sequential access file. 


STOP 
Function: 


To halt the object program permanently or temporarily, with or without a display of 
a literal. 


Format: 


literal 
st0F | SUN | 


Rules: 
(1) Literal may be numeric or nonnumeric, or any figurative constant except ALL. 


(2) Literal is communicated to the operator through the typewriter console, and 
continuation of the program begins with the execution of the next statement 
after the STOP statement. The literal option is equivalent to a DISPLAY 
statement, but requires a reply from the operator to continue the program. 


For example, the error routine 


SEQ-ERROR. 
STOP 'CARDS OUT OF SEQUENCE, CORRECT SEQUENCE, REPLACE 
CARDS IN READER, ANSWER R WHEN READY’. 


will cause the literal to be DISPLAYed as follows: 


CD10 CARDS OUT OF SEQUENCE, CORRECT SEQUENCE, REPLACE 
CARDS IN — CD10 READER, ANSWER R WHEN READY. 
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This will be followed by 
CA10 ACCEPT READY 
and program operation is suspended pending operator reply. 

(3) When the RUN option is used, the object program is halted permanently; 
therefore, when this option appears in an imperative statement, it should 
appear as the only, or the last, statement in a sequence of imperative state- 
ments. 

SUBTRACT 

Function: 


The SUBTRACT statement allows the programmer to subtract one, or the sum of 
two or more, numeric data items from one or more items, and to set the values of 
one or more items equal to the results. 


Formats: 


Format 1: 


SUBTRACT pee a ee ie 


identifier-1 » tdentifier-2 
FROM itdentifier-m [ROUNDED] [ identifier-n [ROUNDED}]| aed 
[; ON SIZE ERROR imperative-statement] 


Format 2: 


SUBTRACT ‘ literal-1 } i literal-2 ] a 


identifier-1 , identifier-2 


FROM 


identifier-m 





literal- 
ae is \ GIVING identifier-n [ROUNDED] 


[; ON SIZE ERROR imperative-statement] 
Format 3; 


CORR 


SUBTRACT | OSS Es PONDING 


\ identifier-1 


FROM identifier-2 [ROUNDED] 
[; ON SIZE ERROR imperative-statement] 
Rules: 


(1) When format 1 is used, all literals and identifiers preceding the word FROM 
are added together and this total is subtracted from identifier-m, identifier-n, 


PAGE: 


etc., and the result of the subtraction is stored as the new value in identifier-m, 


identifier-n, etc. 
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(2) The maximum size of each operand is 18 decimal digits. The composite of 
operand, which is that data item resulting from the superimposition of all toe: 
operands, excluding the data item that follows the word GIVING, aligned on 
their decimal points, must not contain more than 18 digits. 


(3) In format 2, identifier-n may refer to a data item that contains editing symbols. 
All other identifiers must refer to numeric elementary items. 


(4) When format 2 is used, all literals or identifiers preceding the word FROM are 
added together, and this total is subtracted from literal-m or identifier-m; then 
the .result of the subtraction is stored as the new value in identifier-n. 


(5S) If format 3 is used, data items under identifier-1 are subtracted FROM and 
stored in CORRESPONDING data items under identifier-2. 


(6) For a description of the ROUNDED, SIZE ERROR, and CORRESPONDING 
options, see 6.6.1. 


TRANSFORM 
Function: 


The TRANSFORM statement may be used to alter characters of an identifier accord- 
ing to a user-defined transformation rule or table. It may also be used to effect 
code base translation between EBCDIC and ASCII via compiler supplied tables. 


Formats: 

Format 1: 

TRANSFORM identifier-3 [, identifier-4]... CHARACTERS 
identifier-1 identi fier-2 

EROM  nonnumeric-itrat 10} nonnameritverat-2 
figurative-constant-1 figurative-constant-2 

Format 2: 

TRANSFORM identifier-3 [, identifier-4)... CHARACTERS 
EBCDIC TO ASCII 

EROK jase TO EBCDIC 

Format 3: 


TRANSFORM identifier-3 [, identifier-4]... CHARACTERS 


of idenstions 
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SECTION: 


Rules: 


(1) 


(2) 


(3) 


(4) 


(S) 


(6) 


(7) 
(8) 


All identifiers used in this statement must be described either explicitly or 
implicitly as USAGE IS DISPLAY. Identifier-1, identifier-2, or identifier-5 
may not be variable length operands. 


The least significant digit position of a signed numeric DISPLAY item without 
a SEPARATE SIGN clause is treated as a single character, not a signed digit. 


In format 1, identifier-1 and identifier-2 must not exceed 256 characters in 
length. The length of identifier-2 must be either equal to the length of 
identifier-1, or have a length of 1 character. 


In format 1, nonnumeric-literals must be enclosed in quotation marks (or 
apostrophes). 


In format 1, all figurative-constants are permitted except ALL nonnumeric- 
literal. 


In format 1, a character must not be duplicated in identifier-1 or in nonnumeric- 
literal-l. 


In format 3, identifier-5 must have a length of 256 characters. 


The following paragraphs explain the allowable combinations of choices in 
the TRANSFORM statement. 


(a) The following rules apply to these combinations in format 1: 
identifier-1 TO identifier-2 
identifier-1 TO nonnumeric-literal-2 
nonnumeric-literal-l1 TO identifier-2 
nonnumeric-literal-1 TO nonnumeric-literal-2 
nonnumeric-literal-1 TO figurative-constant-2 


identifier-l TO figurative-constant-2 


m If the FROM and the TO operands have the same length, any occurrence in 
identifier-3, identifier-4, and so on, of a character (or the single character) 
in operand-l is replaced by the character in the corresponding position (or 
the single character) of operand-2. 


m If the FROM operand exceeds one character and the TO operand is only 
one character, any occurrence in identifier-3, identifier-4, and so on, of 
any character in operand-l is replaced by the single character in operand-2. 

(b) The following rule applies to these combinations in format 1: 
figurative-constant-l TO identifier-2 

figurative-constant-1 TO nonnumeric-literal-2 

figurative-constant-1 TO figurative-constant-2 

a Length of operand-l and operand-2 is one character. Any occurrence in 


identifier-3 of the single character in operand-l is replaced by the single 
character in operand-2. 
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(c) The following applies to format 2: 


@ Identifier-3 is transformed from ASCII to EBCDIC or from EBCDIC to 
ASCII depending on the FROM and TO operands according to the table 
contained in Appendix N. 


(d) The following rules apply to format 3: 


gw Identifier-3 may be described as any length up to a maximum of 
65,535 characters. 


w Identifier-5 is a 0O—255 binary value positional translate table, i.e., 
any character in identifier-3 with a binary value of 0, will be 
transformed to the character in the first position of identifier-5; any 
character in identifier-3 with a binary value of 1, will be transformed 
to the character in the second position of identifier-5, etc. 


> (9) The TRANSFORM verb is an extension to ANS COBOL. 


6.7.33. USE 


Function: 


The USE statement specifies procedures for input-output label and error handling 
that are in addition to the standard procedures specified by the input-output system. 
The three format options available are: 


m@ Label writing and checking 
@ Error checking 


a Printer form-overflow 
Format 3 is an extension to American National Standard COBOL. 


Formats: 


Format 1: 


REEL 
BEFORE \ STANDARD [ ees) 


use J BEFORE FILE 
USE AFTER - ENDING. UNIT 
file-name-1|[, file-name-2]... 
ee LABEL PROCEDURE ON aUTPOR ; 
LO 
Format 2: 
file-name-1 !, file-name-2|... 
INPUT 
> USE AFTER STANDARD ERROR PROCEDURE ON OUTPUT . 
1-0 
Format 3: pee 


>. USE FOR FORM-OVERFLOW ON file-name-l. 
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SECTION: 





PAGE: 


Rules: 


—? (1) A USE statement must immediately follow a section header in the Declaratives 
portion of the Procedure Division, and must be followed by a period. The remainder 
of the section must consist of one or more procedural paragraphs that define the 
procedures to be used. 


(2) The USE statement defines the conditions calling for the execution of the USE 
procedures, and the USE statement itself is never executed. 


(3) When format 1 is used: 


(a) If the file-name option is present, the FD entry for file-name-1 must contain 
a LABEL RECORDS ARE data-name clause. 


(b) If BEGINNING or ENDING is omitted, the designated procedures are 
executed for both beginning and ending labels. Ending is not applicable 
for direct access files whose organization is other than sequential. 


(c) If the REEL/UNIT clause is used, the designated procedures are executed 
for each new REEL or UNIT of a file but not for the start or end of the file 
itself. If UNIT, REEL, FILE clause is omitted, the designated procedures 
are executed for the REEL or UNIT, whichever is applicable, and the FILE. 
The REEL option is not applicable to mass storage files and the UNIT option 
is not applicable to files in the random access mode. 


(d) When the INPUT, OUTPUT, or I-O option is specified, the USE procedure 
refers to all appropriate files except those described with the LABEL 
Se RECORDS OMITTED or STANDARD clause. 


(e) The BEFORE option is not applicable to the UNIVAC 9400 System, but 
is accepted for compatibility. The BEFORE option is processed as if 
AFTER were specified. 


(4) When format 2 is used, the USE procedure will be initiated when system standard 
I-O error recovery procedures have been exhausted. 


(5) When format 3 is used, control will be transferred to the USE procedure when 
a printer carriage overflow condition is detected. The carriage tape channel 
9 is used to indicate overflow. Format 3 is an extension to the COBOL standard. 


Overflow is detected during the print and space functions of the printer. If 
form positioning by means of the paper tape loop is specified (advancing 
mnemonic name), a form overflow condition does not occur. 


(6) File-name must not represent a sort file in any format. 


(7) Input-output statements are not allowed inside USE procedures except for 
the following verbs: 


(a) ACCEPT 
(b) DISPLAY 


(c) WRITE to a printer within a FORM-OVERFLOW procedure. 


NOTE: At least one DISPLAY to SYSLST must be performed in the non- 
declarative portion of the PROCEDURE DIVISION before any are 
performed with the DECLARATIVE portion. ACCEPTs from 
SYSCONSOLE or the job stream are not permitted inside a 
USE for LABEL PROCEDURE. 
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SECTION: 


(8) CALL and ENTRY statements are not allowed within USE procedures. 


(9) Within a USE procedure, there must not be any reference to any non-declarative 
procedures. Conversely, in the non-declarative portion there must be no 
reference to procedure-names that appear in the declarative portion, except 
that PERFORM statements may refer to a USE declarative or to the 
procedures associated with such a USE declarative. 


WRITE 
Function: 


The WRITE statement releases a logical record for an output file. It can also be 

used for vertical positioning of the printer. The WRITE statement permits performance 
of a specified imperative statement if the contents of the associated KEYS are found 
to be invalid. 


Formats: 


Format 1: 


WRITE record-name [FROM identifier-1] 


: identifier-2 LINES 
BEFORE : 
{RETER f ADVANCING intéger - LINES 


mnemonic-name 


Format 2: 


WRITE record-name [FROM identifier-1] ; INVALID KEY imperative-statement eet 


Rules: 


(1) A file must be OPENed prior to execution of the first WRITE statement for that 
file. 


(2) The record-name is the name of a logical record in the File Section of the Data 
Division and must not be part of a sort file. 


(3) When the FROM option is used, data is moved from identifier-1 to record-name 
according to the rules specified for the MOVE verb without the CORRESPONDING 
option. . 


(4) After the WRITE is executed, information in record-name is no longer available, 
but identifier-1 information is available. 


The record area associated with an output file may not be accessed prior to 
the open for that file. (After a WRITE is executed the record is no longer 
available.) 


(5) The INVALID KEY option in format 2 is used for processing direct access files. 


(a) In sequential access mode, the imperative-statement is executed when the 
end of the last segment of the file is reached and an attempt is made to 
execute a WRITE for that file. 


(b) In random access mode, the WRITE performs the function of a SEEK state- 
ment prior to writing. The imperative-statement is executed when the 
contents of the KEY(s) being used to locate the record is found to be ‘ 
invalid. 
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The ADVANCING option allows control of the vertical positioning of each 
record on the printed page. If this option is omitted for a printer file, the 
printer will automatically advance one line before printing. Any form of the 
ADVANCING option overrides this automatic advance. 


(a) The content of identifier-2 and the value of integer must not exceed 127. 
A value of 0 is permissible (where overprinting is desired). 


(b) Mnemonic-name specifies a channel in the forms control paper tape loop. 
This channel is identified in the SPECIAL-NAMES paragraph of the 
Environment Division, using SYSCHAN-t IS mnemonic-name, where t is 
the channel. 


The USE FOR FORM-OVERFLOW clause in the Declaratives portion of the 
Procedure Division permits the programmer to perform special procedures 
when a form overflow condition exists. Form overflow is detected during the 
print and space functions of the printer. If form positioning by means of paper 
tape loop is specified (ADVANCING mnemonic-name), form overflow condition 
does not occur. 


Printer speed can be increased by as much as 100% in printer-bound COBOL 
object programs if the WRITE statement to the printer is: 


WRITE RECORD-NAME [FROM identifier] 


BEFORE ADVANCING integer LINES 


This statement allows printing and advancing to be done with one command 
to the printer. 


Because of the nature of the commands which the printer hardware can accept, 

if a WRITE AFTER ADVANCING is used, object code will be generated causing 
two commands to the printer: the first to space the printer form, and the second 
to perform the printing. Note that the COBOL WRITE statement without an 
ADVANCING option specified is defined to be a WRITE AFTER ADVANCING 

1 LINE. Therefore, the WRITE statement without an ADVANCING option 

results in the slower printer speed. 
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7. SEGMENTATION 


GENERAL 


Segmentation provides a method of communication with the compiler to specify object 
program overlay requirements. Since UNIVAC 9400 COBOL deals just with segmentation 
of procedures, only the Procedure Division is considered in determining segmentation 
requirements for an object program. 


PROGRAM SEGMENTS 


When segmentation is used, it is mandatory that the Procedure Division be written in 
sections. Each section must be classified as belonging to either the fixed portion or 

to one of the independent segments of the object program. Segmentation does not negate 
the need to qualify procedure-names in order to ensure uniqueness. 


Fixed Portion 


In the basic compiler, the fixed portion is that part of the object program which 
is always in memory. This portion of the program cannot be overlaid by any other 
part of the program. 


In the extended compiler, the fixed portion is that part of the object program which 
is logically treated as if it were always in memory. This portion of the program is 
composed of two types of segments, the fixed permanent segment and the fixed 
overlayable segments. 


A fixed permanent segment is a segment in the fixed portion which cannot be over- 
laid by any other part of the program. A fixed overlayable segment is a segment in 
the fixed portion which, although logically treated as if it were always in memory, 
can be overlaid by another segment to optimize memory utilization. Variation of 
the number of fixed permanent segments in the fixed portion can be accomplished 
by using a special facility called the SEGMENT-LIMIT clause (see 4.2.2). Such a 
segment, if called for by the program, is always made available in its last used 
state. 


In the basic compiler, an implicit SEGMENT-LIMIT of 50 is always in effect. If 
the SEGMENT-LIMIT clause is not specified in the extended compiler, an implicit 
SEGMENT-LIMIT of 50 is also in effect. 


Independent Segments 


In the basic compiler, an independent segment is a part of the object program which 
can overlay, and can be overlaid by another independent segment. An independent 
segment is in its initial state whenever control is transferred to that segment from 
a segment with a different priority-number. 


In the extended compiler, an independent segment is part of the object program 
which can overlay, and can be overlaid by either a fixed overlayable segment or 
another independent segment. An independent segment is in its initial state when- 
ever control is transferred to that segment from a segment with a different 
priority-number. 








UP-7709 
Rev. l 


7.3. 


7.4, 


7.4.1. 









UNIVAC 9400 COBOL 
SUPPLEMENTARY REFERENCE 


7 


SECTION: 


SECTION 


Function: 


Segment classification is accomplished by means of a system of priority-numbers 
which are included in the section header. 


Format: 


section-name SECTION [priority-number]. 


Rules: 


(1) The priority-number must be an integer ranging in value from 0 through 99. 


(2) If priority-number is omitted from the section header, the priority is assumed to 
be 0. 


(3) Sections in the Declaratives must not contain priority-numbers in their section 
headers. 

(4) The logical sequence of the object program execution is the same as the 
physical sequence of the source program except for specific user supplied 
transfers of control. Sections with the same explicit or implicit priority-number, 
however, physically comprise a single object program segment. 


(5) In the basic compiler, sections with priority-number 0 through 49 constitute the 
fixed permanent segment of the object program. Sections with priority-number 
50 through 99 constitute independent segments. All sections with the same er 
priority-number must appear together in the source program. 


In the extended compiler, sections with priority-number 0 up to, but not including, 
the SEGMENT-LIMIT priority-number constitute the fixed permanent segment of 
the object program. Sections with priority-numbers ranging from the SEGMENT- 
LIMIT to 49 are fixed overlayable segments. Sections with priority-number 50 
through 99 constitute independent segments. Sections with the same priority- 
number need not be grouped together in the source program. 


RESTRICTIONS 


When Segmentation is used, the following restrictions are placed on the ALTER and 
PERFORM statements. 


The ALTER Statement 


Any GO TO statement in a fixed segment (priority-number 49 or less) can be 
ALTERed by an ALTER statement located in any other segment of the program. 
A GO TO statement in an independent segment (priority-number 50 or greater) can 
only be ALTERed by an ALTER statement located in the same segment as the 
GO TO statement. 
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7.4.2. The PERFORM Statement 


(1) A PERFORM statement that appears in a section with a priority-number less 
than the implicit or explicit SEGMENT-LIMIT priority-number can have, 
within its range only the following: 


(a) Sections with a priority of less than 50. 


(b) Sections wholly contained in a single segment whose priority-number is 
g Pp y 
greater than 49. 


(2) A PERFORM statement that appears in a section with a priority-number equal 
to or greater than the implicit or explicit SEGMENT-LIMIT priority-number can 
have, within its range, only the following: 


(a) Sections with the same priority-number as that containing the PERFORM 
statement. 


(b) Sections with a priority-number less than the implicit or explicit 
SEGMENT-LIMIT priority-number. 





ial 
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8. TABLE HANDLING 


GENERAL 


The table handling module provides a means of defining contiguous data items ina 
tabular form, thereby permitting easy access to any item regardless of its position 
in the table. 


This section contains the methods of table definition and referencing that are 
available to the UNIVAC 9400 COBOL user. For a complete discussion of table 
handling see Fundamentals of COBOL — Table Handling, UP-7503.2 (current 
version). 


DEFINING A TABLE 


Each data item in a table (called a table element) must be the subject of an OCCURS 
clause in the data description. This clause specifies the number of times that the 
table element appears in the table. 


To define a one-dimensional table, an OCCURS clause is written as a part of the 
data description for the repeated item. Any practical number of occurrences may 
be specified (see 5.3.3 rule 4). 


Defining a one-dimensional table within each occurrence of a table element gives 
rise to a two-dimensional table. This is done by writing an OCCURS clause for a 
data item subordinate (i.e., having numerically larger level number) to another item 
for which an OCCURS clause was written. Tables with up to three dimensions can 
be defined in this manner in UNIVAC 9400 COBOL. Each dimension must be defined 
by an OCCURS clause, and must be defined on a different hierarchal level. 


The OCCURS clause is fully explained in 5.3.3 of this manual. 
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TABLE REFERENCE 


To reference a table element, it is necessary to specify which occurrence of the table 
element is intended. 


Occurrence numbers are specified by one of two methods: subscripting or indexing. 
In either method, the reference is made by immediately following the data-name with 
a set of occurrence specifications (subscripts or index-names) enclosed in parentheses. 


Up to three subscript or index levels may appear in the reference, depending upon 
the number of dimensions involved. There must be one subscript or index-level for 
each OCCURS clause in the defined hierarchy which contains the element name, 
including the one for the element name. Multiple subscripts and index-names 

are written left to right in descending order of inclusiveness. 


SUBSCRIPTING 
Definition: 


An integer value which specifies the occurrence number of a table element is a 
subscript. 


Format: 


data-name (subscript-1 [, subscript-2 [, subscript-3]}) 


Rules: 


(1) The subscript value must be a positive or unsigned integer and may be represented — 


as a numeric literal or as a data-name defined elsewhere as an elementary numeric 
data item with no character positions to the right of the assumed decimal point. 
Data-name subscripts may be mixed with numeric literal subscripts within a reference. 


(2) The lowest valid subscript is 1; the highest valid subscript is the number of item 
occurrences specified in the OCCURS clause. The area allocated, multiplied by 
the number of occurrences cannot exceed 65,535. 


(3) References are made to individual items within a table of homogeneous elements 
by specifying the name of the table, followed by one or more spaces, followed by 
its related subscript(s) in parentheses. A left parenthesis may not be followed by a 
Space, nor may a right parenthesis be preceded by a space. 
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SECTION: 


INDEXING 
Definition: 


A technique used to refer to individual table elements within a table of like elements 
that have not been assigned individual data-names. An index-name contains the occurrence 
number of a table element which can be used for: 


gm Direct indexing by using the index-name as a subscript. 


w Relative indexing by appending to the index-name the + or — operator followed by 
an unsigned integer. 


Format: 


data-name (index-name-! [{+} integer-1] 
[, index-name-2 [{+} integer-2]] 


(, index-name-3 [{+} integer-3]]) 
Rules: 


(1) Index-names are defined by use of the INDEXED BY option in the OCCURS clause. 
Further data description is not used because allocation and format are hardware- 
dependent. The index-name may be used only in reference to the table element 
described by the OCCURS clause or to one of its subordinate items. 


(2) Index-names are initialized and modified in the object program by means of the 
SET statement. 


(3) References are made to individual items within a table of homogeneous elements 
by specifying the name of the table element, followed by its related index-name(s) 
in parentheses. 


(4) A data item in a file can be described by a USAGE IS INDEX clause. This data 
item value can then be transferred to an index-name without conversion, by means 
of the SET statement. 


SEARCHING Y 
Definition: 


Data that has been arranged in the form of a table is often searched. In COBOL the 
SEARCH statement provides facilities, through its two options, for producing serial 
and nonserial (binary) searches. In using the SEARCH statement the programmer may 
vary an associated index-name or an associated data-name. This statement also 
provides facilities for execution of imperative statements when certain conditions 
are true and includes an AT END phrase (see 6.7.26). 
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SECTION: 





9. SORTING 


GENERAL 


The UNIVAC 9400 COBOL SORT feature offers the user an efficient means of sorting 
records against a set of specified keys in addition to a variety of processing consid- 
erations, such as adding or deleting records, or modification of records within the 
file. Sorting is included in the extended compiler only. 


ORGANIZATION OF A SORT PROGRAM 


A sort file, like any other file, is a set of records. It is described in the Data Division 
by a special type of File Description called a Sort File Description. The sort file may 
be thought of as an internally contained intermediate representation of the file, following 
the initial input of unsorted records and preceding the final output of sorted records. 


A COBOL program may contain any number of sort operations. In general, a sort 
operation proceeds as follows: 


(1) Control passes to a SORT statement. The SORT statement specifies the sort 
file to be created and the data keys that guide the sort operation. It either identi- 
fies the input procedure and output procedure or names the source of the unsorted 
input records and those files which are to receive the sorted output records. 


(2) The input procedure, if named in the SORT statement, is executed. This input 
procedure must contain at least one RELEASE statement. If no INPUT PROCEDURE 
is specified, the input file is named in the USING option of the SORT statement. 

The effect of either option is to make input records available to the sort operation. 


(3) The records made available to the sort operation are sorted on a set of specified 
keys as shown in the KEY clause. 


(4) The SORT statement passes control to the output procedure, if one is named. The 
output procedure must contain at least one RETURN statement, the effect of which 
is to move sorted records from the sort file to the output file. If no output procedure 
is used, the GIVING option must specify the output file. 


(S) The operation of the SORT statement is terminated and control passes to the next 
statement in sequence. 


When the input procedure or an output procedure is in control, all transfers of control 
must refer to procedures contained within that input procedure or output procedure. 
Conversely, control cannot be transferred into an input or output procedure from points 
in the Procedure Division outside the physical limits of that given input or output 
procedure. Neither an input nor an output procedure may contain a SORT statement. 


For a detailed discussion of COBOL sorting consult Fundamentals of COBOL — Sorting, 
UP-7503.3 (current version). 
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9.3. SORT STATEMENT FORMATS 


The following paragraphs summarize the statements used in UNIVAC 9400 COBOL sorts. 


9.3.1. Sort File Select Statement 
Function: 
The SELECT statement is used to name the sort file and to identify the hardware 
storage medium used during the sorting process. 
Format: 
SELECT filename ASSIGN TO l[external-namel] [integer-1] implementor-name-1 


[OR implementor-name-2] 
Rules: 
(1) The SELECT statement is discussed in detail on 4.3.1. 


(2) The external name is not required in the sort file SELECT statement, as 
fixed external names are used. 


(3) Tape or disc are the only applicable devices for a sort file. Note that regard- 
less of which device is specified, the temporary storage medium used is 
determined at execution time using the external name (SM01, SM02, SMO3.,..., 
SMO06 for tape; DMO1I,..., DMO08 for disc). 


(4) The optional OR clause serves only as documentation since the actual tempo- 
rary medium is determined at execution time through the job control stream. 


9.3.2. Sort File Description 
Function: 


The Sort File Description (SD) defines the structure of the file to be sorted. 


Format: 


SD file-name 
[; RECORD CONTAINS [integer-5 TO] integer-6 CHARACTERS] 


F 


> ; RECORDING MODE sy 
a D 


[; DATA RECORDS aREtiename [, data-name-2}. .| 


Rules: 


Paragraph 5.2.2 lists the rules applicable to this statement. 
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9.3.3. RELEASE 


9.3.4, 


9.3.5. 


Function: 


RELEASE is used in the input procedure of a SORT statement to transfer records 
to the initial phase of a sort operation. 


Format: 


RELEASE record-name [FROM identifier] 





Rules: 


This statement is discussed in detail in 6.7.23. 


RETURN 
Function: 


RETURN is used in the output procedure of a SORT statement to obtain sorted 
records from the final phase of a sort operation. 


Format: 


RETURN file-name RECORD [INTO identifier] AT END imperative-statement 


Rules: 


This statement is discussed in detail in paragraph 6.7.24. 


SORT 
Function: 


The SORT statement controls the creation of the sort file by specifying the means 
of input, the sorting keys, and the means of output. 


Format: 


{ DESCENDING) KEY data-name-1 |, data-name-2]... 


SORT file-name-1 ON \ ASCENDING ‘ 


{ DESCENDING 
) ASCENDING 


rr | 


; ON \ KEY [data-name-3].. | ree 





INPUT PROCEDURE IS section-name-1 [THRU section-name-2| 


USING file-name-2 





Nee me as 


OUTPUT PROCEDURE IS section-name-3 [THRU section-name-4] 
| GIVING file-name-3 


Rules: 


The rules governing this format are discussed in detail in 6.7.29. 
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9.3.6. Use of Sort Feature in the Extended Compiler 


The extended compiler provides the COBOL user with the following optional sort 


features: 


m The 9400 COBOL compiler generates linkage code to the standard system sort/ 


merge facilities for all SORT statements. A detailed description of the sort/merge 
facility is available in UNIVAC 9400 System Sort/Merge Programmers Reference, 
UP-7664 (current version). 


The following information is provided to clarify the various options of the sort/ 
merge available to the COBOL programmer, COBOL object programs normally 
utilize the small volume sort facilities of the sort/merge program; therefore, no 
operator intervention (except console typeins) is required. The programmer may, 
however, request the use of the large volume sort facilities. Internal, tape-only, 
disc-only, and tape/disc sorts are all possible, depending on record volumes 
and environment. 


(1) Record Size 


The maximum COBOL record size of 4092 characters may be sorted. 


(2) Record Format 


Record format may be fixed (F) or variable (V). For variable format, the 
BIN size (subrecord size used for internal sort purposes, see UNIVAC 
9400 System Sort/Merge Programmers Reference, UP-7664 (current version)) 
specified by the program will be the size of the smallest record described 
in the sort description (SD). 


NOTE: If the USING/GIVING option of the SORT statement is used, the 
record format of the USING/GIVING files must agree with the SD 
record format. 


(3) Storage Allocation 


The compiler ensures that the object program contains the minimum storage 
required for sorting by including in the generated output module a RESERVE 
linker control statement. Linking the compiler output then produces an object 
program which includes an area reserved to satisfy the minimum sort needs. 
This area is referenced within the object program modules by an external 
reference (EXTRN) to label KESALP. 


NOTE: If the programmer inhibits the compiler generation of linker control 
statements (Option OUT=L), he must satisfy this area requirement 
in constructing linker control specifications. 


The method employed by the compiler ensures that the sort area is the last 
storage associated with the object program. If the programmer allocates 
additional storage for program execution (RUN command parameter), all 
storage from KE$ALP to the end of the program storage is used by the 
sort/merge for internal processing. Additional storage can greatly increase 
the efficiency of the sort operation and should be allocated when possible. 


ee 
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SECTION: 


(4) Device Allocation 


(S) 


(6) 


If the storage allocated for sorting is not adequate to allow an internal sort, 
external devices must be allocated for intermediate storage. Magnetic tape 
and/or disc devices may be assigned for this purpose through job control 
statements. Tapes are assigned using fixed sort filenames of SMO1, SMO2, 

..., SMO6. If tapes are assigned, a minimum of three are required, and a 
maximum of six may be used. Disc devices (maximum of 32, four per filename), 
which must contain SYSPOOL area, are assigned usign fixed sort filenames 

of DM01, DMO2,..., DMO8. 


Control Stream Parameters 


When the sort is executed by the object program, the presence of control 
stream parameters are questioned using a console typeout. This feature 
allows the programmer to override the parameters specified in the object 
program (i.e., sharing of tape devices with small volume sorts, request 
for automatic execution of large volume sort, etc.). For details, see 
UNIVAC 9400 System Sort/Merge Programmers Reference, UP-7664 
(current version). 


Multiple Sorts 


The 9400 COBOL compiler does not restrict the programmer from using 
multiple SORT statements which refer to the same SD (sort file description), 
or using multiple SORT statements which refer to different sort descriptions. 
Only one SORT statement may be active at any one time. 


NOTE: A SORT statement may not appear in an input or output procedure 
of another SORT statement. If an object program attempts to execute 
a sort during a previous sort operation, a console message is dis- 
played. 


a 
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10. LIBRARY 


10.1. GENERAL 


The Library module provides the capability of specifying text that is to be copied 
from the COBOL Library which contains text that is available to a source program 
at compile time. The effect of the compilation of library text is the same as if the 
text were actually written as part of the source program. COBOL Library text is 
placed in the COBOL Library as a function independent of the COBOL program. 


This section contains library information as applicable to the UNIVAC 9400 COBOL 
user. For a complete discussion of the COBOL Library module see Fundamentals 
of COBOL ~— Language UP-7503.1 (current version), 


10.2, USING THE COPY STATEMENT 


The COBOL Library may contain text for the Environment Division, the Data Division 
and the Procedure Division available through the use of the COPY statement. The 
tules for the COPY statement are given in 6.7.7 of this manual. 


The COPY statement may be written in any of the following forms: 
In the Environment Division: 


SOURCE-COMPUTER. COPY statement. 
OBJECT-COMPUTER. COPY statement. 
SPECIAL-NAMES. COPY statement. 
FILE-CONTROL. COPY statement. 
I-O-CON TROL. COPY statement. 











In the File Section: 


FD fileename COPY statement. 


SD sort-file-name COPY statement. 
01 data-name COPY statement. 


In the Working-Storage Section: 
Ol data-name COPY statement. 
In the Procedure Division: 


paragraph-name, 
ee SECTION [priority-numberl. COPY statement. 
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In addition to referencing the library module through the COPY statement, the = 
programmer must define the device and file which contain the library module in 

his job control stream. The LFD name given to this file must also be present 

on a param card with keyword LIN. 


ee 


The compiler performs no editing of library modules. Whatever is contained in 
the library under the specified library-name is copied into the program. Lines 

of code taken from the library are marked with a C to the right of the line number 
on the source listing if the text is copied without replacement. Lines of code 
which have one or more words of text replaced are marked with an R. 


Example: 
If a COBOL program contains the following lines of code: 


FILE SECTION. 
FD FILE01 COPY LIB-FD01 REPLACING DN-1 BY TAX-A. 
01 TAX-A. 


and the assigned library file contains a module named LIB-FDO1 with the lines: 


LABEL RECORDS ARE STANDARD 
BLOCK CONTAINS 1 RECORD 
DATA RECORD IS DN-1. 


at compile time the source listing would be as follows: 


LINE NO. SOURCE STATEMENT 

00033 FILE SECTION. 

00034 FD FILE01 COPY LIB-FD01 REPLACING DN-1 BY TAX-A 
00035 C LABEL RECORDS ARE STANDARD 

00036 C BLOCK CONTAINS 1 RECORD 

00037 R DATA RECORD IS DN-1 


00038 O01 TAX-A. 


The effect on the program is the same as if the programmer had written: 


FILE SECTION. 

FD FILEO1 
LABEL RECORDS ARE STANDARD 
BLOCK CONTAINS 1 RECORD. 
DATA-RECORD IS TAX-A. 

Ol TAX-A. 


PARAM cards for use with the COPY statement are defined in Appendix C, 
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SECTION: 


APPENDIX A. UNIVAC 93400 SYSTEM 
CHARACTER SET 


A.l. 


GENERAL 


Table A—1 shows the character set of the UNIVAC 9400 System in collating sequence. 


CHARACTER CODES 





























CONSOLE 
KEYBOARD | 7-TRACK 
HEXA- 80-COLUMN CODE TAPE 
DECIMAL | DECIMAL | EBCDIC CARD CODE | (EBCDIC) | (BCDIC) 
0 00 NUL 12-0-9-8-1 
1 ol 12-9-1 
2 02 12-9-2 
3 03 12-963 
4 04 PF 12-964 
5 05 HT 12-9-5 
: 06 tc 12-9-6 
07 12-9-7 
8 08 DEL 12-9-8 
9 09 12-9-8-1 
10 OA 12-9-8-2 
ul 0B 12-9.8-3 
12 oc 12-9-8-4 
13 oD 12-9-8-5 
4 0E 12-9.8-6 
15 oF 12-9-8-7 
16 10 12-11-9-8-1 
7 il 11-9-1 
18 12 11-9-2 
19 13 11-9-3 
20 14 RES 11-9-4 
21 15 NL 11-9-5 CARR. RET(CR) 
22 16 Bs 11-9-6 
23 7 IL 11-9-7 
24 18 11-9-8 
25 19 11-9-8-1 
26 1A 11-958-2 
27 1B 11-9-8-3 
28 1c 11-9-8-4 
29 10 11-9-8-5 
30 1E 11-9-8-6 
31 1F 11-9-8-7 
32 20 ps 11-0-9-8-1 
33 21 Sos 0-9-1 
34 22 FS 0-9-2 
35 23 0-9-3 
36 24 BYP | 0-9-4 
37 25 LF 0-9-5 LINE FEED(LF) 
38 26 EOB 0-9-6 
39 27 PRE 0-97 
40 28 0-9-8 
41 29 0-9-8-1 
42 2A SM 0-9-8-2 
43 2B 0-9-8-3 
44 2c 0-9-8-4 
45 20 0-9-8-5 
46 2 0-9-8-6 
47 2F 0-9-8-7 
48 30 12-11-0-9-8-1 
49 31 9-1 
50 32 9-2 
51 33 93 
52 34 PN 9-4 
53 35 RS 95 
54 36 uc 96 
55 37 EoT 97 ® (EOM) 
56 38 9-8 
57 39 9-8-1 
58 3A 9-8-2 
59 38 9-8-3 
60 3c 9-8-4 
61 30 9-8-5 
62 3€ 9-8-6 
63 3F 9-8-7 
64 40 sP NO PUNCHES SPACE (SP) 
65 41 12-0-9-1 
66 42 12-0-9-2 
67 43 12-0-9-3 
68 44 12-0-9-4 





® Punch patterns used to store the comesponding hexadecimal 
repsesentation in the indicated bit positions of a byte. 


(Part 1 of 4) 


— 


COMPRESSED 
CARD 
cope (1) 


NO PUNCH 
3} 12 
411 


112,11 





“z20-A-409 
“zo-A-4ov 


wneo 
OnE 
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Table A~1. 














r 
80-COLUMN 

escoic® | carb CODE 

69 12-0-9-5 

70 12-0-9-6 

7 47 12-0-9-7 

72 48 12-0-9-8 

73 49 12-8-1 

74 4A ¢ 12-8-2 

75 4B is 12-8-3 

16 4c < 12-8-4 

77 40 ( 12-8-5 

78 4E + 12-8-6 

79 4F [(Vert. Bar) | 12-8-7 

80 50 & 12 

81 51 12-11-9-1 

82 52 12-11-9-2 

83 53 12-11-9-3 

84 54 12-11-94 

85 55 12-11-9-5 

86 56 12-11-9-6 

87 57 12-11-9-7 

88 58 12-11-9-8 

89 59 11-8-1 

90 SA 1 11+8-2 

91 5B $ 11-8-3 

92 5C * 11-844 

93 5D ) 11-8-5 

94 SE ; 11-8-6 

95 SF T{Not) | 11-8-7 

96 60 - 11 

97 61 / 0-1 

98 62 11-0-9-2 

99 63 11-0-9-3 

100 64 11-0-9-4 

101 65 11-0-9-5 

102 66 11-0-9-6 

103 67 11-0-9-7 

104 68 11-0-9-8 

105 69 0-8-2 

106 6A \ 12-11 

107 6B »{Comma) | 0-8-3 

108 6C % 0-8-4 

109 60 |—(Underscore) | 0-8-5 

110 6E > 0-8-6 

i 6F i 0-8-7 

112 70 12-11-0 

3 7 12-11-0-9-1 

114 72 12-11-0-9-2 

115 B 12-11-0-9-3 

116 14 12-11-0-9-4 

u7 75 12-11-0-9-5 

18 76 12-11-0-9-6 

19 77 12-11-0-9-7 

120 78 12-11-0-9-8 

121 79 8-1 

122 7A A 8-2 

123 78 # 8-3 

124 7c @ 8-4 

125 7D '(PrimeorApos)| 8-5 

6 7E = 8-6 

127 TF *" (Quotes) 8-7 

128 80 12-0-8-1 

129 81 a 12-0-1 




































CONSOLE 
KEYBOARD 7-TRACK 
CODE TAPE 
(EBCDIC) (BCDIC) 
¢ 
a BAB 21 
bs BAB84 
( BA84 1 
+ BA842 
| (Vert. Bar) BA8421 
& BA 
‘or OR 
$ BB 21 
= B 84 
) B 841 
; B 842 
—}(Not) B 8421 
= B 
} A i 
(Comma) Ag 21 
% AB4 
—(Underscore) A84 1 
> A842 
2 A8421 
: A 
# 8 21 
@ 84 
(Prime or Apos. 84 1 
ime or po: nao 
" Quotes) 8421 
2 | 





@ Lower case letters are an industry standard and ate not printable on the 


UNIVAC 9400 Printer. 
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= 
CONSOLE 1 
CONSOLE 
KEYBOARD 7-TRACK | KEYBOARD 7-TRACK 
HEXA- 80-COLUMN SET Tepe HEXA- 80-COLUMN SET TAPE 
DECIMAL |DECIMAL| eacoic® | card CODE! (eBcbIC) (BCDIC) DECIMAL | DECIMAL]  EBCDIC CARD CODE (EBCDIC) (BCDIC) 
12-0-2 ae | co PZ 
12-0-3 cl A A 
12-064 C2 B B 
12-0-5 C3 c c 
12-0-6 c4 D D 
12-0-7 cs E E 
12-08 C6 F F 
12-0-9 c7 G ir 
12-0-8-2 ce8 H 4 
12-0-8-3 co j 1 
12-0-8-4 202 
12-0-8-5 203 
12-0-8-6 204 
12-0-8-7 205 
12-11-8-1 
Mas 91 j 12-11-1 ae 
92 k 12412 
147 93 f 12-113 208 De mz B 8 2 
148 94 m 12-11-4 208 o1 J 4 B 1 
149 95 n 12-115 210 02 K K 8 2 
150 96 ° 12-11-6 ail D3 L L B 21 
151 97 p 12-11-7 212 04 M M B44 
152 98 q 1211-8 213 DS N N Bo4i1 
153 99 ' 12-11-9 214 06 ie) oO B42 
154 9A 12-11-8-2 215 07 P P Bo 421 
155 9B 12-11-8-3 216 D8 Q Q BB 
156 3c 12-11-8-4 217 D9 R R BB 1 
157 9D 12-11-85 218 DA 
158 9E 12-11-8-6 219 DB 
159 oF 12-11-8-7 220 pc 
160 AO 11-0-8-1 221 oD 
161 Al 11-01 222 DE 
163 tives eP ce 
164 u 11-0-4 a EO ABs? 
165 ' 1s 226 E2 s s A 2 
166 w 11-06 227 E3 T T A 21 
197 x Toy 228 E4 u vu A 4 
168 y ees 229 E5 v v A 
169 z 11-09 4d 
170 11.0-8-2 230 E6 w wW A 42 
V1 1100-83 231 E7 x x A 421 
172 11-0-8-4 232 E8 Y Y A8 
173 11-0-8-5 233 E9 Zz Zz AB 1 
474 11-0-8-6 11-0-9-8-2 
175 11-0-8-7 11-0-9-8-3 
176 12-11-0-8-1 11-0-9-8-4 
177 12-11-0-1 11-0-9-8-5 
178 12-11-0-2 11-0-9-8-6 
179 12-11-0-3 11-0-9-8-7 
i ae e@ | | s 2 
182 12-11-06 a a : } 
242 F2 2 2 2 
183 12-11-0-7 3 21 
164 12-11-08 oe fe 7 7 : 
188 Lae 245 F5 5 5 41 
186 12-11-0-8-2 6 42 
187 12-11-0-8-3 246 EB . 
12-11-0-8-4 247 F7 7 7 421 
248 F8 8 8 8 
249 Fo 9 9 8 1 
12-11-0-8-7 250 FA 12-11-0-9-8-2 
251 FB 12-11-0-9-8-3 
@ Lower case letters are an industry standard and are not printable on 252 FC 12-11-0-9-8-4 
the UNIVAG 9400 Printer. 253 FD 12-11-0-9-8-5 
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12-11-0-9-8-6 
12-11-0-9-8-7 
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Appendix B 


APPENDIX B. UNIVAC 93400 SYSTEM 
COBOL RESERVED 


WORDS 


Reserved words are part of the COBOL language structure and cannot be used for 


B.1. GENERAL 

data or procedure names, 
ACCEPT CONTAINS 
ACCESS COPY 
ACTUAL CORR 
ADD CORRESPONDING 
ADVANCING CURRENCY 
AFTER CYLINDER-INDEX 
ALL CYLINDER-OVERFLOW 
ALPHABETIC DATA 
ALTER DATE-COMPILED 
ALTERNATE DATE-WRITTEN 
AND DECIMAL-POINT 
APPLY DECLARATIVES 
ARE DEPENDING 
AREA DESCENDING 
AREAS DIRECT 
ASCENDING DISC-8411 
ASCII DISC-8414 
ASSIGN DISC 
AT DISPLAY 
AUTHOR DIVIDE 
BEFORE DIVISION 
BEGINNING DOWN 
BLANK EBCDIC 
BLOCK ELSE 
BLOCK-COUNT END 
BLOCK-LENGTH-CHECK ENDING 
BUFFER-OFFSET ENTER 
BY ENTRY 
CALL ENVIRONMENT 
CARD-PUNCH EQUAL 
CARD-READER EQUALS 
CARD-READERSS1 ERROR 
CARD-READER-66 EVERY 
CHARACTERS EXAMINE 
CHANGED EXCEEDS 
CLOSE EXHIBIT 
COBOL EXIT 
COMMA EXTENDED-INSERTION 
COMP FD 
COMP-3 FILE 
COMPUTATIONAL FILE-CONTROL 
COMPUTATIONAL-3 FILE-LIMIT 
COMPUTE FILE-LIMITS 


CONFIGURATION 


FILE-PREPARATION 


FILLER 

FIRST 

FOR 
FORM-OVERFLOW 
FROM 
GENERATE 
GIVING 

GO 


GREATER 
HIGH-VALUE 
HIGH-VALUES 
1-0 
I-O-CONTROL 
IDENTIFICATION 
IF 

IN 

INDEX 
INDEXED 
INDICES 
INITIATE 
INPUT 
INPUT-OUTPUT 
INSERT 
INSTALLATION 
INTO 

INVALID 

Is 

JUST 
JUSTIFIED 
KEY 

LABEL 
LEADING 
LEFT 

LESS 

LINE 

LINES 
LINKAGE 
LOCK 
LOW-VALUE 
LOW-VALUES 
MAP 
MASTER-INDEX 
MEMORY 
MODE 


MODULES 
MONITOR 
MORE-LABELS 
MOVE 
MULTIPLE 
MULTIPLY 
NAMED 
NEGATIVE 
NEXT 

NO 

NOT 

NOTE 
NUMERIC 
OBJECT-COMPUTER 
OCCURS 

OF 

OFF 
OMITTED 
ON 

OPEN 
OPTIONAL 
OR 
ORGANIZATION 
OTHERWISE 
OUTPUT 
PERCENT 
PERFORM 
PIC 
PICTURE 
POSITION 
POSITIVE 
PRINTER 
PROCEDURE 
PROCEED 
PROCESSING 
PROGRAM 
PROGRAM-ID 
QUOTE 
QUOTES 
RANDOM 
READ 
READY 
RECORD 
RECORDING 


~< 


~- 
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RECORDS 
REDEFINES 
REEL 
RELATIVE 
RELEASE 
REMAINDER 
REMARKS 
RENAMES 
REPLACING 
RERUN 
RESET 
RESERVE 
RESTRICTED 
RETURN 
REVERSED 
REWIND 
REWRITE 
RIGHT 
ROUNDED 
RUN 
SAME 
SD 
SEARCH 
SECTION 
SECURITY 
SEEK 

> SEGMENT-LIMIT 
SELECT 
SENTENCE 
SEPARATE 
SEQUENTIAL 
SET 
SIGN 
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SIZE 
SORT 
SOURCE-COMPUTER 


SPACE 
SPACES 
SPECIAL-NAMES 
STANDARD 
STATUS 
STOP 
SUBTRACT 
SYMBOLIC 
SYNC 
SYNCHRONIZED 
SYSCHAN-4 
SYSCHAN-5 
SYSCHAN-6 
SYSCHAN-7 
SYSCHAN-8 
SYSCHAN-9 
SYSCHAN-10 
SYSCHAN-11 
SYSCHAN-12 
SYSCHAN-13 
SYSCHAN-14 
SYSCHAN-15 
SYSCOM 
SYSCONSOLE 
SYSDATE 
SYSERR 
SYSERR-0 
SYSERR-1 
SYSERR-2 
SYSERR-3 
SYSERR-4 


SYSERR-5 
SYSERR-6 


SYSERR-7 
SYSERR-8 
SYSERR-9 
SYSERR-10 
SYSERR-11 
SYSERR-12 
SYSERR-13 
SYSERR-14 
SYSERR-15 
SYSLST 
SYSSWCH 
SYSSWCH-0 
SYSSWCH-1 
SYSSWCH-2 
SYSSWCH-3 
SYSSWCH-4 
SYSSWCH-5 
SYSSWCH-6 
SYSSWCH-7 
SYSTIME 
TALLY 
TALLYING 
TAPE 
TAPE-6 
TAPES 
TERMINATE 
THAN 
THEN 
THROUGH 
THRU 
TIME 
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TIMES 
TO 

TRACE 
TRACKS 

TRAILING 
TRANSFORM 
UNEQUAL 

UNIT 

UNIVAC-9400 
UNTIL 

UP 

UPON 

USAGE 

USE 

USING 

VALUE 

VALUES 

VARYING 

VERIFY 

WHEN 

WITH 

WORDS 
WORKING-STORAGE 
WRITE 

ZERO 

ZEROES 

ZEROS 
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SECTION: 


APPENDIX C. SOURCE AND COPY 
LIBRARY INPUT 
SPECIFICATION 


GENERAL 


This appendix describes the method of reading a source program from either the 
control stream or from a tape or a disc library. 


The formats for the source and copy library PARAM statements are presented in 
the following paragraphs. 


Source Library Input: 
Format: 
// PARAM IN=program-name/file-name 


program-name 1- to 8-character name of source program to be compiled. 


file-name 1- to 8-character name used to identify the file on which the source 
program resides, This name must appear on the LFD control card 
used to define the device to the Job Control program, 


If the fileename is omitted, the following name will automatically 
be supplied: 


Name when using basic system — SYSRES 
Name when using extended system — SORS$ 


NOTE: When only four tapes are available for compilation, source input should'be 
mounted on SCR2. The compiler console message: 


DISMOUNT SCR2. MOUNT A SCRATCH TAPE ON SCR2. 


will appear when tape is to be changed. 
Copy Library Input: 
Format: 


// PARAM LIN=file-name 


file-name 1- to 8-character name used to identify the file on which the COPY 
library resides. This name must appear on the LFD control card 
used to define the device to the Job Control program. 


If the file-name is omitted, the following name will automatically 
be supplied: 


Name when using basic system — SYSRES 
Name when using extended system — COPY$ 


The COPY element-name is supplied in the source program via the 
COPY clause. 
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C.2, BASIC COMPILER SOURCE LIBRARY INPUT AND COPY LIBRARY INPUT 


The source program may be read from the job stream or from a tape library. Any 

copy library modules referenced in the source program may be read from a tape library. 
Any library structure to be accessed by the compiler must be created by the UNIVAC 
9400 tape librarian. 


Any library tapes to be accessed by the compiler must be defined in the job stream 
and on PARAM cards (keyword IN for the source library; LIN for the copy library). 
If the source program does not reference any copy library modules, the copy library 
file need not be defined. 


Examples: 


(1) Source library and copy library: 


DvC 10 =©// VOL SPxxxx // LFD FILE-NAME-1 
Yo 7 i) 


DVC 11 VOL SPxxxx LFD F ILE-NAME-2 
with PARAM cards: 


// PARAM IN=PROGRAM-NAME/F ILE-NAME ~1 
/ PARAM LIN=F ILE-NAME-2 


(2) Source library and copy library on the same tape: 


// DvC 10 =—// VOL SPxxxx  // LFD FILE-NAME-1 


with PARAM cards: 


// PARAM IN=PROGRAM-NAME/F ILE-NAME-1 
/ PARAM LIN=F ILE-NAME-1 


(3) Source from the job stream and copy library: 


// vbvC 10 =6// VOL SPxxxx // LFD FILE-NAME-1 
with PARAM card: 


// PARAM LIN=F ILE-NAME-1 


In the above examples, FILE-NAME-1 and FILE-NAME-2 are programmer-supplied 
names. PROGRAM-NAME is the name of the source library module which contains 
the source program. 


Either the source library, the copy library, or both libraries on the same tape may be 
defined as SCR2. If so, SCR2 must be assigned in the job stream and on the PARAM 
cards, When the source program and any referenced copy library modules have been 
read, a console message is printed instructing the operator to demount the library tape 
on SCR2 and mount a scratch tape. 
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C.3, EXTENDED COMPILER SOURCE LIBRARY INPUT AND COPY LIBRARY INPUT 
The source program may be read from the job stream, a tape library, or a disc library. 
Any copy library modules which are referenced by the source program may be read 


from a tape library or a disc library. Any library structures to be accessed by the 
compiler must have been created by the UNIVAC 9400 tape or disc librarian. 


Any library structures to be accessed by the compiler must be defined in the job 
stream and their LFD names must appear on PARAM cards (keyword IN for the source 
library; LIN for the copy library). If there are no copy library modules referenced by 
the source program, the copy library need not be defined. 

Examples: 


(1) Source and copy library on disc: 


4) Dvc 20 © // VOL DSPxxx 


LBL FILE-ID-1,DSPxxx § // LFD FILE-NAME-1 
Dvc 20 =// VOL DSPxxx 
/ LBL FILE-ID-2,DSPxxx  // LFD FILE-NAME-2 
with PARAM cards: 


// PARAM IN=PROGRAM-NAME/F ILE-NAME-1 
/ PARAM LIN=F ILE-NAME-2 


(2) Source library tape and copy library disc: 


= // DVC 10 VOL SPxxxx  // LFD FILE-NAME-1 
DVC 20 Y VOL DSPxxx 
/ LBL FILE-ID-1,DSPxxx // LFD FILE-NAME-2 
with PARAM cards: 


// PARAM IN=PROGRAM-NAME/F ILE-NAME-1 
/ PARAM LINSF ILE-NAME-2 


(3) Source from the job stream and copy library tape: 


// bvC 10 // VOL SPxxxx // LED FILE-NAME-1 
with PARAM card: 
// PARAM LIN=F ILE-NAME-1 
(4) Source and copy from the same library tape: 
// vbvC 10) =—// VOL SPxxxx  // LFD FILE-NAME-1 
with PARAM cards: 


// PARAM IN=PROGRAM-NAME/F ILE-NAME-1 
/ PARAM LINSF ILE-NAME-1 


al In the above examples, FILE-NAME~-1 and FILE-NAME-2 are programmer-supplied 
names. FILE-ID-1 and FILE-ID-2 are file-id names that were used at the time the 
disc library was created. PROGRAM-NAME is the name of the source library module 
that contains the source program. 
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INTRODUCTION 


This appendix describes the different processing techniques available to the 9400 
COBOL programmer for processing files assigned to direct access devices. The 
technique chosen to process a particular file is dependant upon the file organ- 

ization and the manner in which the file is to be accessed. Each processing technique 
has its particular advantages and disadvantages. In selecting a processing technique, 
one must consider such factors as device characteristics,file size, file activity, file 
growth potential, etc. For more information, see UNIVAC 9200 II/9300 II/9400 Systems 
P.LLE. 8411 Disc File Direct Access Subsystem Concepts, UP-7704.1 (current version). 


FILE ORGANIZATION 


A file organization is specified by the ORGANIZATION clause in the SELECT statement 
for the file. UNIVAC 9400 COBOL provides four classes of file organization: 


(1) sequential 
(2) relative 
(3) direct 


(4) indexed 


Each file organization requires a specific number and kind of control field (KEY) to 
locate records within the file. Due to the use of keys, no two file organizations are 
compatible. For example, a sequentially organized file cannot be read if described as 
a file with organization indexed. 


ORGANIZATION IS SEQUENTIAL 


When sequential file organization is used, the logical record of a file will be recorded 
sequentially in order of their creation. Records in a sequential file are read in the 
order they were written. 


ORGANIZATION IS RELATIVE 


Relative file organization is characterized by the use of relative record addressing 
to locate logical records within the file. Prior to the actual creation of a file with 
relative organization, the entire file must be initialized so that it contains a physical 
record in every possible record position (see D.5.2). The address of any logical 
record in the file is determined by its position relative to the first record of the file. 
A unique data item, defined by the ACTUAL or RELATIVE KEY clause, is used to 
specify the RELATIVE record number being processed. The RELATIVE record 
number contained in the key area is converted by Data Management programs into 

the physical record address. 
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+ ORGANIZATION IS DIRECT 


Direct file organization is characterized by the use of relative track addressing and 
record identification keys to locate logical records within the file. Prior to the actual 
creation of a file with direct organization, the entire file area must be initialized such 
that every track is erased and its capacity record is normalized (see D.5.2). The 
address of any logical track in the file is determined by its position relative to the 
first track of the file. A unique data item, defined by the ACTUAL KEY clause, is 
used to specify the logical track number being processed. The RELATIVE track 
number contained in the key area is converted by Data Management programs into 

the physical track address. Another data item, defined by the SYMBOLIC KEY clause, 
is used to identify the desired record within the RELATIVE track. 


ORGANIZATION IS INDEXED 


When indexed file organization is used, the logical records of the file are initially 
recorded (loaded) sequentially into the prime data area of the file. Each logical 

record must contain an embedded record identification field, defined by the RECORD 
KEY clause, All records presented for loading must have their RECORD KEY value in 
presorted ascending sequence. During file load, a hierarchy of indexes, based on 

the value of each RECORD KEY and the record’s physical address, is created in 

the index areas of the file. These indexes are used, in subsequent file processing, 

to physically locate the referenced record. When ACCESS IS RANDOM, a unique 

data item, defined by the SYMBOLIC KEY clause, is used to specify the RECORD 
KEY value of the record being processed. 


FILE ACCESS MODES 


The ACCESS MODE clause defines the order in which data may be transferred to or 
from the direct access storage device. The two modes of accessing data are: 


ACCESS IS SEQUENTIAL 


or 


ACCESS IS RANDOM 


@ Sequential Access 


The reading and writing of records in a file is done in a sequential (serial) manner. 
The order of referencing records is implicitly determined by the physical position 
of the records in the file. 


® Random Access 


Permits the reading and writing of records in a file in the order specified by the 
COBOL programmer through keys associated with the file, 


FILE PROCESSING TYPES 


The combination of the ORGANIZATION and ACCESS MODE clauses defines a file 
processing technique. The following chart outlines the seven types of file processing 
techniques supported by 9400 COBOL and their relationship to file organization and 
record access mode. 
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ACCESS FILE ORGANIZATION 
MODE 
SEQUENTIAL RELATIVE DIRECT INDEXED 


Processing type 1 is assumed when the ORGANIZATION clause is omitted and the 
ACCESS MODE clause is either SEQUENTIAL or omitted. 






Processing type 4 is assumed when the ORGANIZATION clause is omitted and the 
ACCESS MODE clause is RANDOM. 


D.S, KEY CLAUSE AND USAGE 


The following paragraphs describe the key clauses and their use. 


D.5.1. ORGANIZATION Clause 
(1) ORGANIZATION IS SEQUENTIAL 


No keys are required for this file organization. 


(2) ORGANIZATION IS RELATIVE 


The ACTUAL KEY or RELATIVE KEY clause is required and is used to contain a 
relative record number. The logical records of a relative file are addressed by 
their logical position relative to the start of the file. The relative record number 
is reported in ACTUAL or RELATIVE KEY clauses after a READ or WRITE when 
ACCESS IS SEQUENTIAL. If ACCESS IS RANDOM, the value specified in the 
key by the programmer is used to determine the physical address of that logical 
record. ACTUAL KEY and RELATIVE KEY are synonymous. Whichever key is 
used must be defined as an unsigned integer according to the rules for numeric 
items. However, no more than seven digits are used to represent the relative 
record number. The ACTUAL or RELATIVE KEY may not be defined as part 

of the data description of the file to which it is associated, 


(3) ORGANIZATION IS DIRECT 


Both ACTUAL KEY and SYMBOLIC KEY clauses are required to address records. 
The ACTUAL KEY clause contains a relative track number. The relative track 
number is reported in the ACTUAL KEY clause after a READ or WRITE when 
ACCESS IS SEQUENTIAL. When ACCESS IS RANDOM, the value specified in the 
ACTUAL KEY clause by the programmer is used to determine the physical address 
of the logical track number. ACTUAL KEY must be defined as an unsigned integer 
according to the rules for numeric items. However, no more than seven digits are 
used to represent the relative track number. The SYMBOLIC KEY clause contains 
a record identifier used to distinguish each record on a track or series of tracks. 
from all other records on a track or series of tracks. The record identifier is re 
reported in SYMBOLIC KEY clause after a READ when ACCESS IS SEQUENTIAL. 
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When ACCESS IS RANDOM, the record identifier specified in the SYMBOLIC KEY 
clause by the programmer is used as a search argument to locate the record. The 
SYMBOLIC KEY must be defined as an alphabetic, alphanumeric, or numeric item 

with a length not greater than 255 characters. The ACTUAL or SYMBOLIC KEY 

may not be defined as part of the data description of the file to which it is associated. 


ORGANIZATION IS INDEXED 


The RECORD KEY clause is required and is used as a record identifier to distinguish 
each record in the file from all other records in the file. The data area defined by 
the RECORD KEY clause must exist within the record area described for the file. 


The RECORD KEY clause must appear in each record description and its displace- 
ment in each, relative to the first character of the record, must be the same. 


The record identifier is delivered in the RECORD KEY clause, as part of the 
record, whenever a record is read. The RECORD KEY must be described as an 
alphabetic, alphanumeric, or numeric item with a length of 3 to 255 character 
positions. The use of SYMBOLIC KEY is optional when ACCESS IS SEQUENTIAL, 
and required when ACCESS IS RANDOM. When ACCESS IS SEQUENTIAL, the 
SYMBOLIC KEY may be used to specify a RECORD KEY value to be used as 
the starting point of a processing sequence. When ACCESS IS RANDOM, the 
SYMBOLIC KEY value specified by the programmer is used as a search argument 
to locate the record with the corresponding RECORD KEY value. When the 
SYMBOLIC KEY clause is used, it must not be defined as part of the record, but 
its description must be identical to the description of the file’s RECORD KEY. 


D.5.2, APPLY Clause 


UNIVAC 9400 COBOL offers the user various APPLY clauses which permit specified 
input-output techniques to be applied to selected files. Since the APPLY clauses are 
related to file organization, they are discussed on that basis. 


(1) 


(2) 


ORGANIZATION IS SEQUENTIAL 
APPLY VERIFY ON file-name... 


The APPLY VERIFY clause directs that each record written to the file is to 


be check-read, If specified for a file that is only OPEN INPUT, the clause has 
no effect. 


ORGANIZATION IS RELATIVE 


APPLY VERIFY ON file-name ... 


Same as for sequential organization. 
APPLY FILE-PREPARATION ON file-name ... 


Before a record can be physically written in a relative organized file, a pre- 
recorded record, of the same length as the record being written, must already 

exist on the device. The APPLY FILE-PREPARATION clause is used to create 

a dummy record in each relative record area in the file prior to writing the first 
real record. A dummy record contains HIGH-VALUE in the first character position, 
followed by LOW-VALUE in each remaining character position, for a maximum 


of 256 character positions. File-preparation may be omitted if the file presently 
exists in prepared form, having either been previously created or prepared by 
other means. 


~——— 
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ORGANIZATION IS DIRECT 

APPLY VERIFY ON file-name... 

Same as for sequential organization. 

APPLY FILE-PREPARATION ON file-name... 


Before a direct organization file can be created, obsolete data previously 
recorded in the physical file area must be erased. The APPLY FILE- 
PREPARATION clause is used to erase each track and write a ‘‘record- 
zero,’’ or capacity record, on each track of the file. Record zero reflects 
Space, in bytes, remaining on the track for additional records. File preparation 
takes place when the file is OPENed for OUTPUT. Once a direct organized 
file has been created, and file preparation is not employed, any and all logical 
records written to the file will be placed after the current records already on 
the track specified. If the file is not OPENed for OUTPUT, this clause has 

no effect. 


APPLY RESTRICTED SEARCH OF integer TRACKS ON file-name . 


This clause is permitted only if ACCESS MODE IS RANDOM. It defines the 
number of tracks to be searched in order to locate a requested record. If this 
clause is not applied to the file, ALL TRACKS is assumed to be the search 
integer, 


ORGANIZATION IS INDEXED 
APPLY VERIFY ON file-name ... 
Same as for sequential organization. 


APPLY MASTER-INDEX ON file-name ... 


This clause is meaningful only when the file is being initially created (loaded). 
Its use results in the generation of a master cylinder index for the file. 


APPLY CYLINDER-OVERFLOW AREA OF integer PERCENT ON file-name ... 


This clause is meaningful only when the file is being initially created (loaded). 
Its use reserves, in each cylinder of the prime data area, the specified percentage 
of tracks to be used for cylinder overflow area. If the clause is not applied to the 
file, 20 percent of each cylinder will be reserved for cylinder overflow area, This 
represents two tracks on a UNIVAC 8411 Disc Subsystem, and four tracks ona 
UNIVAC 8414 Disc Subsystem. If no cylinder overflow area is desired, specify 

0 PERCENT in the APPLY clause. 


APPLY CYLINDER-INDEX AREA OF integer INDICES ON file-name... 


This clause is meaningful only if ACCESS MODE IS RANDOM. Its use reserves, 
in object time memory, an area sufficient to contain the specified number of 
cylinder index entries. One cylinder index entry exists for each cylinder 

in the prime data area. (The specified integer is incremented by three to allow 
for control fields required by indexed sequential Data Management). 
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APPLY EXTENDED-INSERTION AREA ON file-name ... 


This clause is meaningful only if ACCESS MODE IS RANDOM and the INSERT ed 
verb is being used. This clause reserves, in object time memory, an J-O area 
large enough to contain all data recorded on a prime data track. 

D.6. FILE PROCESSING TECHNIQUES 

D.6.1. ORGANIZATION IS SEQUENTIAL 


File processing type 1 is the only processing technique available when ORGANI- 
ZATION IS SEQUENTIAL. Keys can not be associated with type 1 files. 


A file that is created with sequential organization must be referred to only with 
sequential organization. 


Type 1 allows three record formats: RECORDING MODE IS U, V, or F. With record 
format F or V, records may be blocked or unblocked. 


File preparation is not necessary with sequential organization. 


B® Output file 


An OPEN OUTPUT statement prepares the file for output operation. Standard 
labels are written. The USE for BEGINNING LABEL procedure is executed 
if user labels are specified. 


A WRITE statement causes the specified record to be written into the next 
sequential area of the file after blocking, as required, is effected. 


A CLOSE statement causes orderly termination of file processing. 


mw Input file 


An OPEN for INPUT statement prepares the file for input operation. Standard 
labels are checked and user labels, if specified, are made available to the USE 
for BEGINNING LABEL procedure. 


A READ statement causes the next sequential record in the file to be made 
available after deblocking, as required, is effected. 


A CLOSE statement causes orderly termination of file processing. 


a 1/0 file 


An OPEN for I-O statement prepares the file for input and output operation. 
Label processing is the same as when OPEN for INPUT. User labels may not 
be updated. 


The READ statement’s operation is the same as when OPENed for INPUT. 


Each WRITE statement must be preceded by a READ statement. The WRITE 
statement causes the updated record to be rewritten onto the same physical 
area from which the record was read. Alteration of record length, insertion of 
new records, or deletion of existing records is not permitted. 
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The CLOSE statement causes orderly termination of file processing. 


D.6.2. ORGANIZATION IS RELATIVE 


Two file processing types are available with relative organization: type 2 when 
ACCESS IS SEQUENTIAL, and type 4 when ACCESS IS RANDOM. 


The logical records of a file with relative organization are identified by relative 
record numbers. The contents of the item specified in the ACTUAL KEY clause 
indicates the position of the logical record relative to the beginning of the file, 
starting with the value of 1 for the first record. 


A file that is created with relative organization must be referred to only with 
relative organization. 


Relative organization allows only RECORDING MODE IS F. Records cannot be 
blocked nor can an ALTERNATE AREA be assigned to the file. 


Before processing a newly allocated (or newly extended) relative file, each track 

of the file must be completely filled with physical records that have the same length 
as the data records to be written on the file. The APPLY FILE-PREPARATION 
clause may be used to write dummy records on each uninitialized track of the file. 
File preparation takes place during OPEN processing when the COBOL programmer: 


(1) Writes an APPLY FILE-PREPARATION clause for the file in the ILO CONTROL 
paragraph of the Environment Division. 


(2) Sets the value of the ACTUAL KEY data item to one, if the file is new, or to the 
record number of the first record of the new extent(s) when the file is being 
extended. 


(3) Executes an OPEN OUTPUT statement after the ACTUAL KEY value has been 
set. File preparation occurs each time an OPEN OUTPUT statement is executed. 


D.6,2.1. Type 2 — ACCESS IS SEQUENTIAL 





8 Output file 


An OPEN for OUTPUT statement prepares the file for output operation. The 

file is formatted if the APPLY FILE-PREPARATION clause is specified. 
Standard labels are written. The USE for BEGINNING LABEL procedure is 
executed if user labels are specified. The content of ACTUAL KEY is effectively 
initialized to 1, indicating the first record of the file. 


The WRITE statement records the logical record sequentially on the file, 
implicitly associating a record number with each of the logical records 
written. The record number is reported in the ACTUAL KEY item after the 
record is written. Record numbers start at 1 or, when a SEEK statement 
follows OPEN, with the programmer-supplied value in ACTUAL KEY, and 
are incremented sequentially with each WRITE statement. 
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The SEEK statement positions the direct access device to the track containing 

the relative record number indicated by the programmer-supplied ACTUAL KEY 

value. The key value will be used as the relative record number for the next a 
WRITE. Following each WRITE statement, the record number is incremented 

sequentially until either another SEEK statement is executed or processing is 

terminated. 


The CLOSE statement causes orderly termination of file processing. 


Input file 


An OPEN for INPUT statement prepares the file for input operation. Standard 
labels are checked and user labels, if specified, are made available to the USE 
for BEGINNING LABEL procedure. The contents of ACTUAL KEY is effectively 
initialized to 1, indicating the first record of the file. 


The READ statement retrieves the logical records sequentially from the file, 
reporting the relative record number associated with the record in the ACTUAL 
KEY item. Record numbers Start with 1 or, when a SEEK statement follows OPEN, 
with the value in the ACTUAL KEY item, and are incremented sequentially with 
each READ statement. 


The SEEK statement’s operation is the same as when the file is OPENed for 
OUTPUT except that READ replaces WRITE. 


The CLOSE statement causes orderly termination of file processing. 
I-O file 


An OPEN for I-O statement prepares the file for input and output operation. 
Label processing and key initialization is the same as when the file is 
OPENed for INPUT. 


The READ statement’s operation is the same as when the file is OPENed 
for INPUT. 


The WRITE statement’s operation is the same as when the file is OPENed 
for OUTPUT except that the ACTUAL KEY item is not incremented. 


The operation of the SEEK statement is the same when the file is OPENed 
for INPUT. 


The CLOSE statement causes orderly termination of file processing. 


D.6.2.2. Type 4 — ACCESS IS RANDOM 


mw Output file 


An OPEN for OUTPUT statement prepares the file for output operation. The 
file is formatted if the APPLY FILE-PREPARATION clause is specified. 
Standard labels are written. The USE for BEGINNING LABEL procedure is 
executed if user labels are specified. 


The WRITE statement causes the logical record to be written onto the file 
based on the user-supplied relative record number in the ACTUAL KEY item. 
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The SEEK statement positions the direct access device to the track containing 
the relative record number indicated by the programmer-supplied ACTUAL KEY 
value. 


The CLOSE statement causes orderly termination of file processing. 


m Input file 


An OPEN for INPUT statement prepares the file for input operation. Standard 
labels are checked and user labels, if specified, are made available to the 
USE for BEGINNING LABEL procedure. 


The READ statement retrieves the logical record from the file based on the user- 
supplied relative record number in the ACTUAL KEY item. 


The SEEK statement’s operation is the same as when the file is OPENED for 
OUTPUT. 


The CLOSE statement causes orderly termination of file processing. 
m I-O file 


An OPEN for I-O statement prepares the file for input and output operation. 
Label processing is the same as when the file is OPENed for INPUT. 


The READ statement’s operation is the same as when the file is OPENed for 
INPUT. 


The WRITE and SEEK statement’s operation is the same as when the file is 
OPENed for OUTPUT. 


The CLOSE statement causes orderly termination of file processing. 


D.6.3. ORGANIZATION IS DIRECT 


Two file processing types are available with direct organization: type 3 when 
ACCESS IS SEQUENTIAL, and type 5 when ACCESS IS RANDOM. 


The logical records of a file with direct organization are identified by a relative 
track number and by symbolic record identifying information. The contents of the 
item specified in the ACTUAL KEY clause indicates the position of the logical 
track relative to the beginning of the file, starting with the value of 1 for the first 
track. In type 5, the APPLY RESTRICTED SEARCH clause defines the number of 
tracks to be searched in order to READ or WRITE a requested record. A search 

of the complete file is performed when the RESTRICTED SEARCH clause is 
omitted for a type 5 file. The contents of the item specified in the SYMBOLIC KEY 
clause defines the record identification value of the requested record. 


A file that is created with direct organization must be referred to only with direct 
organization. 


Direct organization allows RECORDING MODE IS F or U. Records cannot be blocked 
nor can an ALTERNATE AREA be assigned to the file. 
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Before processing a newly allocated (or newly extended) direct file, a new capacity 
record must be written on each uninitialized track of the file and the remainder of 
the track must be erased. The FILE*-PREPARATION clause may be used to perform 
the above function. File preparation takes place during OPEN processing when the 
COBOL programmer: 


(1) Writes an APPLY FILE-PREPARATION clause for the file in the IL(O-CONTROL 
paragraph of the Environment Division. 


(2) Sets the value of the ACTUAL KEY data item to 1, if the file is new, or to 
the number of the first track in the new extent(s) when the file is being extended. 


(3) Executes an OPEN OUTPUT statement after the ACTUAL KEY value has been 
set. File preparation occurs each time an OPEN OUTPUT statement is executed. 


Type 3 — ACCESS IS SEQUENTIAL 
@ Output File 


An OPEN for OUTPUT statement prepares the file for output operation. The file 
is formatted if the APPLY FILE-PREPARATION clause is specified. Standard 
labels are written. The USE for BEGINNING LABEL procedure is executed if 
user labels are specified. The contents of ACTUAL KEY is effectively initialized 
to 1, indicating the first track of the file. 


The WRITE statement records the logical record in the next available sequential 
position in the file. The contents of the SYMBOLIC KEY item is recorded with 
the data for the purpose of specific record identification during subsequent 
retrieval or update functions. The relative track number of the record is reported 
in ACTUAL KEY after the record is written. Track numbers start at 1 or, when a 
SEEK statement follows OPEN, with the programmer-supplied value in ACTUAL 
KEY, and are incremented sequentially as each track is filled. 


The SEEK statement positions the direct access device to the track specified by 
the programmer-supplied ACTUAL KEY value. This track number is used by each 
WRITE statement until the track is filled, at which time the track number is 
incremented sequentially. The track number is advanced in this manner until 
either another SEEK statement is executed or file processing is terminated. 


The CLOSE statement causes orderly termination of file processing. 


m@ Input File 


An OPEN for INPUT statement prepares the file for input operation. Standard 
labels are checked, and user labels, if specified, are made available to the 
USE for BEGINNING LABEL procedure. The contents of ACTUAL KEY is 


effectively initialized to 1, indicating the first track of the file. 


The READ statement retrieves the next available sequential record from the file. 
After the READ, the relative track number of the retrieved record is reported 

in the ACTUAL KEY item and the record identification information is reported 
in the SYMBOLIC KEY item. Track numbers start with 1 or, when a SEEK 
statement follows OPEN, with the value in the ACTUAL KEY item, and are 
incremented sequentially as each track is emptied. 


10 
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The SEEK statement’s operation is the same as when the file is OPENed for 
OUTPUT except that READ replaces WRITE. 


The CLOSE statement causes orderly termination of file processing. 
gw 1-0 file 


An OPEN for I-O prepares the file for input and output operation. Label pro- 
cessing and key initialization is the same as when the file is OPENed for 
INPUT. 


The READ statement’s operation is the same as when the file is OPENed for 
INPUT. 


Each WRITE statement must be preceded by a READ statement. The WRITE 
statement causes the updated logical record to be rewritten onto the same 
physical area that the record was read from. The SYMBOLIC KEY value is not 
rewritten. The ACTUAL KEY value for the WRITE is defined by the previous 
READ. Consecutive WRITE’s to the file alter the same physical record position. 


The operation of the SEEK statement is the same as when the file is OPENed 
for INPUT. 


The CLOSE statement causes orderly termination of file processing. 


D.6.3.2. Type 5 — ACCESS IS RANDOM 
@ Output file 


An OPEN for OUTPUT statement prepares the file for output operation. The file 
is formatted if the APPLY FILE-PREPARATION clause is specified. Standard 
labels are written. The USE for BEGINNING LABEL procedure is executed if 
user labels are specified. 


The WRITE statement records the logical record in the next available position 
of the restricted track extent specified by the programmer-supplied ACTUAL 
KEY value (relative track number) and the APPLY RESTRICTED SEARCH 
clause (number of tracks in extent.) The contents of the SYMBOLIC KEY item is 
recorded with the record for the purpose or specific record identification during 
subsequent retrieval or update functions. 


The SEEK statement positions the direct access device to the track specified by 
the programmer-esupplied ACTUAL KEY value. 


The CLOSE statement causes orderly termination of file processing. 
gm Input file 
An OPEN for INPUT statement prepares the file for input operation. Standard 


labels are checked, and user labels, if specified, are made available to the USE 
for beginning LABEL procedure. 
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The READ statement retrieves from the restricted track extent the logical record 

whose recorded record identification information is equal to the programmer-supplied 

value in the SYMBOLIC KEY item. The restricted track extent to be searched is Pee 
specified by the ACTUAL KEY value (relative track number) and the APPLY 

RESTRICTED SEARCH clause (number of tracks in extent). 


The SEEK statement’s operation is the same as when the file is OPENed for 
OUTPUT. 


The CLOSE statement causes orderly termination of file processing. 


m J-O file 


An OPEN for I-O statement prepares the file for input and output operation, 
Label processing is the same as when the file is OPENed for INPUT. 


The READ statement’s operation is the same as when the file is OPENed for 
INPUT. 


Each WRITE statement must be preceded by a READ statement. The WRITE 
statement causes the updated record to be rewritten onto the same physical 
area that the record was read from. The SYMBOLIC KEY value is not rewritten. 
The ACTUAL KEY value for the WRITE is defined by the previous READ. 
Consecutive WRITE’s to the file alter the same physical record position, 


The operation of the SEEK statement is the same as when the file is OPENed 
for OUTPUT. 


The INSERT statement allows new records to be added to the file. The INSERT 
statement’s operation is the same as a WRITE when the file is OPENed for 
OUTPUT. 


The CLOSE statement causes orderly termination of file processing. 


ORGANIZATION IS INDEXED 


Two file processing techniques are available with indexed organization: type 6 
when ACCESS IS SEQUENTIAL, and type 7 when ACCESS IS RANDOM. Type 6 must 
be used to initially create a file or extend an existing file. Type 7 must be used to 
add records into (INSERT) an existing file. 


The logical records of a file with indexed organization are identified by the value 
contained in an embedded identification field specified by the RECORD KEY clause. 


A file that is created with indexed organization must be referred to only with indexed 
organization, 


Indexed organization allows only RECORDING MODE IS F. An ALTERNATE AREA 
cannot be assigned to an indexed file. Records may be blocked or unblocked. The 
recorded format of unblocked records varies depending on the position of the RECORD 
KEY within the record. If the RECORD KEY is the first item described within the 
record, the physical record format is: 


~~ 
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If the RECORD KEY is not the first item described within the record, the physical 
record format is: 





RECORD RECORD 


In either case, the RECORD KEY value is delivered on a READ statement as part 
of the record. 


File preparation is not necessary with indexed organization. 


D.6.4.1. 


Type 6 — ACCESS IS SEQUENTIAL 
m Output file 


An OPEN for OUTPUT statement prepares the file for output operation. File 
creation (load) is assumed unless the file already exists, in which case file 
extension is implied. Standard labels are written. User labels are not permitted. 


The WRITE statement records the logical record sequentially in the prime 
data area of the file after blocking, as required, is effected. The RECORD 
KEY value of the previous logical record. If the file is being extended, the 
RECORD KEY value of the first logical record written must be higher than 
the RECORD KEY value of the last logical record written during the previous 
file load or extension process. 


The CLOSE statement causes orderly termination of file processing. Standard 
labels are written. 


m Input file 


An OPEN for INPUT statement prepares the file for input operation. Standard 
labels are checked. 


A READ statement causes the next sequential record in the file to be made 
available after deblocking, as required, is effected. The RECORD KEY value 
is delivered as part of the logical record. 


The SEEK statement causes the programmer-supplied value in the SYMBOLIC KEY 
item to specify the RECORD KEY value of the next record to be read. If no record 
is found with that KEY, positioning is made to the record with the next higher KEY. 
Following the READ, records are again retrieved sequentially until another SEEK 
statement is executed or file processing is terminated. 


The CLOSE statement causes orderly termination of file processing. Standard 
labels are written. 
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a I-O file 


An OPEN for I-O statement prepares the file for input and output operation. 
Label processing is the same as when the file is OPENed for INPUT. 


The READ statement’s operation is the same as when the file is OPENed for 
INPUT. 


Each WRITE statement must be preceded by a READ statement. The WRITE 
statement causes the updated record to be rewritten onto the same physical 
area that the record was read from. The RECORD KEY value must not be changed. 


The operation of the SEEK and CLOSE statements is the same as when the file 
is OPENed for INPUT. 


D.6.4.2. Type 7 — ACCESS IS RANDOM 
w Input file 


An OPEN for INPUT statement prepares the file for input operation. Standard 
labels are checked. 


The READ statement retrieves the logical record from the file whose RECORD KEY 
value is the same as the programmer-supplied value in the SYMBOLIC KEY item 
after deblocking, as required, if effected. 


The CLOSE statement causes orderly termination of file processing. Standard 
labels are written. 


a I-O file 


An OPEN for I-O statement prepares the file for input and output operation. 
Label processing is the same as when the file is OPENed for INPUT. 


The READ statement’s operation is the same as when the file is OPENed for 
INPUT. 


Each WRITE statement must be preceded by a READ statement. The WRITE 
statement causes the updated record to be rewritten onto the same physical 
area from which record was read. The RECORD KEY must not be changed. 


An INSERT statement causes the new logical record to be added into the file. 
The position of the inserted record is determined by its RECORD KEY value. 
Since all prime data area tracks are fully loaded (dense) during file load or file 
extension, an overflow area must be provided for INSERT’s. The overflow area 
may be a cylinder overflow area (APPLY CYLINDER-OVERFLOW clause) and/or 
an independent overflow area (specified via the job control stream when the file 
is allocated). If both overflow areas exist, the cylinder overflow area is used 
first. 


The CLOSE statement’s operation is the same as when the file is OPEN for 
INPUT. 
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D.7, SUMMARY OF AT END/INVALID KEY/ERROR CONDITIONS 


(1) 


(2) 


(3) 


ORGANIZATION IS SEQUENTIAL 


The AT END imperative statement is executed when an end-of-file record is 
detected. 


The INVALID KEY imperative statement is executed when there is no space 
left on the file for the record to be written. 


ORGANIZATION IS RELATIVE or DIRECT 


For type 2 and type 3 files, the AT END imperative statement is executed when 
an access to a record which is beyond the file is attempted. 


For type 2 through type 5 files, the INVALID KEY imperative statement is executed 
when the relative record number or relative track number is beyond the file extents. 
The INVALID KEY imperative statement is also executed for a type 5 file if the 
record being processed is not located, or cannot be placed into, the current 
restricted track extent. 


The following error conditions are reported in SYSERR for type 2 through type 5 
files: 


SYSERR-1 Wrong Length Record 

SYSERR-4 No Room Found 

SYSERR-8 Data Check Count Area 

SYSERR-9 Track Overrun 

SYSERR-10 End of Cylinder 

SYSERR-11 Data Check in Key or Data 
SYSERR-12 Record Not Found 

SYSERR-13 End of File Record detected 
SYSERR-14 End of Volume 

SYSERR-15 Record not in specified File Extents 


Additional information can be found in Table 4-1 of UNIVAC 9400 Data Management 
System Programmers Reference, UP-7629 (current version). 


The USE FOR ERROR procedure, if specified, is executed if any file error exists 
that did not cause an AT END or INVALID KEY condition. 


When executing a USE FOR ERROR procedure, if SYSERR is OFF, a major hardware 
failure or major logic error is indicated. 


ORGANIZATION IS INDEXED 


For type 6 files, the AT END imperative statement is executed when the logical 
end of file is reached. 
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For type 6 or type 7 files, the INVALID KEY imperative statement is executed 
if: 


(a) during file creation or extension, a RECORD KEY value is found to be out 
of sequence; 

(b) a duplicate RECORD KEY value is detected; or 

(c) the RECORD KEY value cannot be found. 


The following error conditions are reported in SYSERR for indexed files: 


SYSERR-0 Unrecoverable device error 

SYSERR-2 Prime data area full 

SYSERR-3 Index area too small/record not found 
SYSERR-5 Duplicate KEY 

SYSERR-6 Records out of sequence/overflow area full 
SYSERR-7 Record retrieved from overflow area 


Additional information can be found in Table F-1 of UNIVAC 9400 Data Management 
System Programmers Reference, UP-7629 (current version). 


The USE for ERROR procedure, if specified, is executed if any file error exists 
that did not cause an AT END or INVALID condition. 


When executing a USE for ERROR procedure, if SYSERR is OFF, a major hardware 
failure or major logic error is indicated. 


Figure D—1 summarizes available SYSERR-n settings for ORGANIZATION IS INDEXED. 

The SYSERR-n column states the condition causing the setting of the corresponding 

SYSERR-n. The order column headings are self explanatory. The following is an “Ree 
example of the use of the figure. 


ACCESS IS RANDOM, ORGANIZATION IS INDEXED, and a file that has been opened 
for INPUT is being READ. The programmer wishes to know which SYSERR number(s) 
is meaningful during INVALID KEY processing. He must find in the figure the paths 
which satisfy all conditions of the problem to obtain the applicable SYSERR number(s). 
In this example, SYSERR-3 is the only path that contains INVALID KEY, RANDOM, 
INPUT, and READ. SYSERR-3 will be set if no record is found when using SYMBOLIC 
KEY. 


Table D—1 summarizes the COBOL dise processing techniques. 
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MEANINGFUL ACCESS 


SYSERR=n DURING TYPE OPEN FOR VERBS SYSERR DEFINITION 
= SEQUENTIAL | | OUTPUT = 

0 UNRECOVERABLE DEVICE ERROR 

USE FOR OUTPUT READ, WRITE, 
ERROR ; RANDOM 

2 f i SEQUENTIAL OUTPUT WRITE PRIME DATA AREA FULL* 
USE FOR 
ERROR 





SEQUENTIAL OUTPUT 
INDEX AREA TOO SMALL 
USE FOR SEQUENTIAL OUTPUT WRITE 


ERROR 
INVALID KEY RANDOM 
NORMAL SEQUENTIAL 


USE FOR SEQUENTIAL 





READ, WRITE 


SEEK NO RECORD FOUND USING 


SYMBOLIC KEY 
READ, WRITE 


OUTPUT 
INVALID KEY DUPLICATE KEYED RECORD 


( 


EAUPRLALDRERERHA BEEP Ea 





Lod 


OUTPUT WRITE OUT OF SEQUENCE 
INSERT OVERFLOW AREA FULL 


NORMAL F READ RECORD RETRIEVED FROM 
7 RANDOM 
ee eee or 


*1f prime data area is full on first WRITE, SYSERR-2 should be tested during NORMAL processing. 
lf prime data area is full for any subsequent WRITE, SYSERR-2 should be tested in USE ERROR 
PROCEDURE processing. 


Figure D-1. SYSERR-n Settings for ORGANIZATION IS INDEXED 


SEQUENTIAL 





6 USE FOR RANDOM 





PROCESSING TECHNIQUE 
ORGANIZATION ACCESS 


SEQUENTIAL SEQUENTIAL 
OR OR 
OMITTED OMITTED 


RELATIVE SEQUENTIAL 
OR 


OMITTED 


DIRECT SEQUENTIAL 
OR 
OMITTED 
RELATIVE RANDOM 
OR 
7 a 


DIRECT RANDOM 
INDEXED SEQUENTIAL 
INDEXED RANDOM 


® ANS language element extension 
@ Extended compiler only 
@ Requires preformatting of entire file prior to writing 


ADDRESSING 
TECHN! QUE 


RELATIVE 
RECORD 


@ 


RELATIVE 
TRACK 


@ 


RELATIVE 
RECORD 


RELATIVE 
TRACK 


@ 


REQUIRED 
KEY 
CLAUSES 


NONE 
ALLOWED 


ACTUAL 
OR 
RELATIVE 


ACTUAL 
AND 
SYMBOLIC 


ACTUAL 
OR 
RELATIVE 


ACTUAL 
AND 
SYMBOLIC 


RECORD @ 
{ SYMBOLIC] 





RECORD 
AND 
SYMBOLIC 


@ Default RECORD FORMAT is underlined 


ALLOWABLE I-0 
STATEMENTS 


REQUIRED 
CLAUSES 


RECORD | OPEN 

FORMAT@) VERB 
READ AT END 
OUTPUT | WRITE INVALID KEY 


READ AT END 
WRITE INVALID KEY 


SELECT ‘ASSIGN 


LABEL RECORDS 


STANDARD } 
DATA-NAME 


CLOSE 


are| 


iNPUT READ AT END, SEEK 


OUTPUT | WRITE INVALID KEY, 
SEEK 


READ AT END, WRITEG) 
INVALID KEY, SEEK) 


INPUT READ AT END, SEEK 


OUTPUT | WRITE INVALID KEY, 
SEEK 


READ AT END, WRITE © 
INVALID KEY, SEEK @ 


INPUT | READ INVALID KEY, 
SEEK 

OUTPUT | WRITE INVALID KEY, 
SEEK 
READ INVALID KEY, 
WRITE G) INVALID KEY, 
SEEK@) 


£ 
U 
INPUT READ INVALID KEY, SEEK 
ee 
OUTPUT | WRITE INVALID KEY, 
U SEEK 
READ INVALID KEY, 
WRIT. 
INVALID KEY, INSERT 
INVALID KEY, SEEK) 


READ AT END, SEEK 
WRITE INVALID KEY 


READ AT END, WRITE) 
INVALID KEY, SEEK 


INPUT READ INVALID KEY 


READ INVALID KEY, 
WRIT 


INVALID KEY, INSERT 
INVALID KEY 


SELECT/ASSIGN 


LABEL RECORDS 
ARE STANDARD 


System compatibility. 





® REWRITE accepted as synonym for WRITE 
® SEEK not permitted between READ and WRITE 


Table D-—1. Summary of COBOL Disc Processing Techniques 


ets 


OPTIONAL 
CLAUSES 


SELECT OPTIONAL, 
MULTIPLE UNIT, 
RESERVE, SAME (RECORD) 
AREA, BLOCK CONTAINS, 
RECORD CONTAINS, DATA 
RECORDS, APPLY VERIFY, 
USE LABEL, USE ERROR, 
CLOSE UNIT, READ INTO, 
WRITE FROM 


SAME (RECORD) AREA, 
RECORD CONTAINS, BLOCK 
CONTAINS 1 RECORD, DATA 
RECORD, APPLY VERIFY, 
APPLY FILE-PREPARATION 
USE LABEL, USE ERROR, 
RESERVE NO ALTERNATE 
AREA, READ INTO, WRITE 
FROM, INSERT FROM 


(SAME AS ABOVE) 


AND APPLY RESTRICTED 
SEARCH 


SAME (RECORD) AREA, 
RECORD CONTAINS, BLOCK 
CONTAINS, DATA RECORDS, 
RESERVE NO, APPLY VERIFY, 
APPLY MASTER-INDEX, 


APPLY CYLINDER-OVERFLOW, 


USE ERROR, INTO, FROM 


(SAME AS ABOVE) AND APPLY 
EXTENDED-INSERTION, 
APPLY CYLINDER-INDEX 
AREA 


RESTRICTED 
CLAUSES 


APPLY RESTRICTED SEARCH, 


; APPLY FILE-PREPARATION, 


APPLY MASTER-INDEX, APPLY 
CYLINDER-OVERFLOW, APPLY 
EXTENDED-INSERTION, APPLY 
CYLINDER-INDEX AREA 


APPLY RESTRICTED SEARCH, 
RESERVE INTEGER, OPTIONAL 
BLOCK CONTAINS -! RECORD, 
USE ENDING LABEL, APPLY 
MASTER-INDEX, APPLY 
CYLINDER-OVERFLOW, 

APPLY EXTENDED-INSERTION 
APPLY CYLINDER-INDEX 
AREA 


{SAME AS ABOVE) 

EXCEPT 

APPLY RESTRICTED SEARCH 
iS ALLOWED 


APPLY RESTRICTED SEARCH, 
APPLY FILE-PREPARATION, 
RESERVE INTEGER, OPTION- 
AL, USE LABELS, LABEL 
RECORDS OMITTED OR DATA- 
NAME USE ENDING LABEL 





@® ACTUAL key may be used in place of SYMBOLIC key for UNIVAC 9300 


Z “Aay 
6022-dN 


nn 
Cc 
_ 
uU 
r 
m 
= 
m 
xz 
= 
> 
A 
~< 
Aa 
m 
wn 
mi 
Aa 
m 
z 
a 
m 


=NOILDAS 


104905 0076 DVAINNA 


d xXtpuaeddy 
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APPENDIX E. EXTENDED COMPILER 
al FEATURES 


E.1. GENERAL 


As previously stated in 1.3 of this manual, the basic compiler is a true subset of the 
extended compiler. The features that are contained only in the extended compiler are 
summarized in Table E—1, with appropriate references to the text. 


EXTENDED COMPILER FEATURE REFERENCE 


SD 9.2.2 


compound conditions 6.5.2 


COMPUTE verb 6.6, 6.6.1, 6.7.6 


condition-name, with multiple values or THRU option only 5.3.12 
COPY REPLACING 6.7.7 


IF statement condition associated with range of value 





INSERT 
OCCURS DEPENDING 5.3.3 
PERFORM statement, formats 3 and 4 6.7.21 
RELEASE verb 6.7.23 
RETURN verb 6.7.24 
REWRITE 6.7.25 
SEARCH 6.7.26 
SEEK verb 6.7.27 
SEGMENT -LIMIT 4.2.2 
SORT verb 6.6, 6.7.29 
VALUE IS statement, format 2 5.3.8 
CORRESPONDING option for ADD, SUBTRACT, and 6.7.2, 6.7.31, 6.7.17 
MOVE verbs 4 
Random Access Features 
ACCESS !S RANDOM 4.3.1 
ORGANIZATION 43.1 
KEYS 4.3.1 
APPLY VERIFY 43.2 
APPLY MASTER-INDEX 4.3.2 
APPLY CYLINDER-INDEX AREA 4 3.2 
APPLY CYLINDER-OVERFLOW AREA 4.3.2 
APPLY EXTENDED-INSERTION 4 3.2 
APPLY FILE-PREPARATION 4.3.2 
SYSERR, SYSERRI| -n] 4.2.3 
all 


Table E~1. Extended Compiler Features 
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APPENDIX F. CALLING AND CALLED 
PROGRAMS 


F.1. GENERAL 


Run-time communication between a main COBOL program and any other separately 
compiled or assembled subprogram is accomplished by use of the ENTER statement 
together with its associated statements: 


mg CALL 
m@ ENTRY 
m EXIT PROGRAM or RETURN 


gw USING clause with PROCEDURE DIVISION header 


Actual transfer of control from a CALLing program to a CALLed program is via a 
CALL statement whose entry-name is identical to the entry-name in the ENTRY 
statement of the CALLed program. Return of control to the CALLing program is 
effected by the execution of an EXIT PROGRAM statement in the CALLed program. 
Control is returned to the statement following the CALL statement in the CALLing 
program. 


Note that a CALLed program need not be a COBOL program. In such cases, the 
COBOL CALLing program may include procedure-names in its USING argument 
list. All lines in the examples containing an asterisk (*) in the continuation 
area (column 7) are commentary lines. 


F.2. TREATMENT OF DATA ITEMS 


Data items which are declared in the CALLing program and are referenced in the 
CALLed program are described in the File or Working Storage Section in the Data 
Division of the CALLing program. In the CALLed program, these data items are 
described, once again, but in the LINKAGE SECTION. Items described in the 
LINKAGE SECTION are not allocated computer storage by the compiler since these 
items already occupy storage in the CALLing program which furnishes their 
addresses to the CALLed program at object time. 


Data items common to both programs are shared by means of corresponding USING 
clauses in each program. The operands in the USING clause of the CALLing program 
name the data items contained in the Data Division which are to be shared with the 
CALLed program. The USING clause in the CALLed program can either follow the 
PROCEDURE DIVISION header or be contained in an ENTRY statement. The operands 
must name data items described by 01 or 77 level entries in the LINKAGE SECTION. 


The sequence of appearance of the operands in the two USING clauses is extremely 
significant since corresponding operands refer to a single common data item, i.e., 
correspondence is by position and not by name. Each reference to an operand in the 
CALLed program’s USING clause is treated as if it were a reference to the correspond- 

ing operand in the USING clause of the CALLing program. The CALLing program is 
responsible for ensuring physical data alignment if the description of a LINKAGE SECTION 
data item implies a hardware alignment requirement. 


It should be noted that a CALLed program may also be a CALLing program sharing 
common data items in its Data Division (including LINKAGE SECTION items) with 
still another CALLed program. 
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F.3, LINKING 


A sample linker job stream for CALLing and CALLed programs follows: 


/$ 


LOADM CALLXX 
INCLUDE CALLER, * 
INCLUDE CALLED, * 
INCLUDE ADDROUT, * 


/* 


F.4, UNIVAC 9400 COBOL CALL/ENTRY INTERFACE 


The following example is provided to illustrate the use of CALL and ENTRY state- 

ments. The example consists of a COBOL program (CALLER, see Figure F—1) which 

shares data-items and calls upon a CALL subprogram (CALLED, see Figure F—2) and 

an assembly language subprogram (ADDROUT, see Figure F—3), for operations upon 
> the shared data-items. Table F—1 shows the relationship between these programs. 


ROUTINE | TYPE LANGUAGE INTERFACE FUNCTION COMMENT 


CALLER COBOL CALLs COBOLADD Note that any 01 or 77 









Sets values in data- 
items and CALLS 
on subprograms to 
add vatues and 
provide result. 
Results are dis- 
played on cone 



























in CALLED. level data-item can be 
CALLs ASMBLRAD used as operand in CALL 
in ADDROUT. statement (shared with 
subprogram), 





































sole, 
CALLED |Subprogram] COBOL ENTRY point is Adds values in Items to be shared with 
COBOLADD. several shared a CALLing program are 
EXIT accomplishe data-items and described as 01 or 77 
ed via exit leaves result level data-items in 
program, in a shared LINKAGE SECTION. 
data-item. 











ENTRY point is 
ASMBLRAD. 

Exit accomplish- 
ed via BR RE$. 







Same as CALLED 
above. 


Items to be shared with 
a CALLing program may 
be described within a 
DSECT. The arguments 
passed represent the 
address of each item 
in the CALLing program 
Storage, 









ADDROUT ASM 


> Table F-1. Program/Subprogram Relationships 
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LINE NO. SOURCE STATEMENT 
00001 IDENTIFICATION DIVISION. 
00002 PROGRAM-ID. CALLER. 
00003 ENVIRONMENT DIVISION. 
00004 CONFIGURATION SECTION. 
00005 SOURCE=COMPUTER. UNIVAC-9400. 
00006 OBJECT-COMPUTER. UNTVAC-9400. 
00007 DATA DIVISION. 
00008 WORKING-STORAGE SECTION. 
00009 77 DATAL PIC 9999. 
00010 77 + DATA2 PIC 99. 
00011 77 +CTR PIC 99 VALUE 01. 
00012 Ol DATAX. 
00013 02 DATA3 PIC 99. 
00014 O02 DATA4 PIC 99. 
00015 PROCEDURE DIVISION. 
00016 PO. 
00017 MOVE CTR TO DATA2, DATA3, DATA4. 
00018 POD. 
00019 ENTER LINKAGE. 
00020 CALL ASMBLRAD USING DATA2, DATAX, DATA1. 
00021 ENTER COBOL. 
00022 DISPLAY ' CALLER RECVD ' DATA2 ' + ' DATA3 ' + ' DATA4 '! =! 
00023 DATA1 '* FROM ASMBLRAD '. 
00024 ADD 1 TO DATA4. 
00025 Pl. 
00026 ENTER LINKAGE. 
00027 CALL COBOLADD USING DATA2, DATAX, DATAIL. 
00028 ENTER COBOL. 
00029 P3. 
00030 DISPLAY ' CALLER RCVD ' DATA2 ' + ' DATA3 ' + ' DATA4 '! =! 
00031 DATAl ' FROM COBOLADD'. 
00032 P4. IF CTR LESS THAN 12 ADD 1 TO CIR GO TO PO ELSE 
00033 DISPLAY ‘END OF RUN' STOP RUN. 


Figure F~1. Example of CALLing Program 
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LINE NO. 
00001 
00002 
00003 
00004 
00005 
00006 
00007 
00008 
00009 
00010 
00011 
00012 
00013 
00014 
00015 
00016 
00017 
00018 
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SOURCE STATEMENT 
IDENTIFICATION DIVISION. 
PROGRAM-ID. CALLED. 
ENVIRONMENT DIVISION. 
CONFIGURATION SECTION. 
SOURCE-COMPUTER. UNIVAC-9400. 
OBJECT-COMPUTER. UNIVAC-9400. 
DATA DIVISION. 

LINKAGE SECTION. 
Ol DATAX. 
02 DATA3 PIC 99. 
02 DATA4 PIC 99. 
77 DATAL PIC 9999, 


77 DATA2 PIC 99. 
PROCEDURE DIVISION. 


PO. ENTER LINKAGE. ENTRY COBOLADD USING DATA2 DATAX DATAI. 


ENTER COBOL. 
Pl. ADD DATA2 DATA3 DATA4 GIVING DATAI. 
P9. ENTER LINKAGE. EXIT PROGRAM. ENTER COBOL. 


Figure F~2, Example of CALLed Program 


PAGE: 


UP-7709 
Rev. 2 


UNIVAC 9400 COBOL Appendix F 


SUPPLEMENTARY REFERENCE SECTION: 




















ADDROUT START O 
PRINT NOGEN 
STDEQU 
PRINT GEN 
DUMMY DSECT 
DATA2ASM DS CL2 A DSECT IS A DESCRIPTION NOT TO 
DATAXASM DS OCL4 BE MAPPED SINCE IT WILL RESIDE 
DATA3ASM DS Ce ELSEWHERE AT OBJECT TIME 
DATA4ASM DS ewe) 
DATA1ASM DS CL4 
ADDROUT CSECT 
USING DATA2ASM,R2$ R2 WILL BE USED TO COVER DATA2 
USING DATAXASM,R3$ R3 WILL BE USED TO COVER DATA3/4 
USING DATALASM,R4$ R4 WILL BE USED TO COVER DATAI1 
USING *,RF$ COVER FOR THIS ROUTINE 
ASMBLRAD STM  RE$,RC$,12(RD$) SAVE CALLERS REGS IN HIS SAVEAREA 
ENTRY ASMBLRAD DECLARES ENTRY POINT LABEL 
LR R2$,RD$ SAVE ADR OF CALLERS SAVEAREA 
LA RD$, SAVEAREA LOAD RD$ WITH ADDR OF THIS ROUT S-A 
STM R2$,R2$,4(RD$) SAVE CALLER S-A ADR IN THIS ROUT SA 
STM RD$,RD$,8(R2$) SAVE THIS ROUT SA ADR IN CALLER SA 
LM R2$,R4$,0(R1$) LOAD COVER REGS WITH ARG'S 
PACK HOLD2(2),DATA2ASM(2) 
ZAP ACCUM(3),HOLD2(2) 
PACK HOLD2(2),DATA3ASM(2) 
AP ACCUM(3 ) ,HOLD2(2) 
PACK HOLD2(2),DATA4ASM(2) 
AP ACCUM(3 ) ,HOLD2(2) 
UNPK DATALASM(4),ACCUM(3) 
L RD$,4(,RD$) ADDR OF CALLERS SA 
LM RE$,RC$,12(RD$) RESTORES CALLERS REGS 
MVI 12(RD$),X'FF' SET CALLED TO RETURNED STATUS 
BR RES 
SAVEAREA DS 18F 
ACCUM DS CL3 
HOLD2 DS CL2 
END 


Figure F-3. Example of CALLed Assembly Subprogram 
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Example console typeout at execution time of the three programs. 




































































13:42 RE 15 
113:42 $1 ST22 AC2 RL AP 

113:42 g1 Jcg6 15 COBOL CALLXX : oo: 2994 
113:42 15 sTlg // ALTER ,.1 

T13:42 15 CDIM CALLER RCVD @1 + 91 + 91 = G@@C FROM ASMBLRAD 
113:42 15 CDI1M CALLER RCVD @1 + 91 + g2 = G@d4 FROM COBOLADD 
113:43 15 CD1f CALLER RCVD g2 + go + go = F FROM ASMBLRAD 
113:43 15 CDI@ CALLER RCVD 92 + g2 + 93 = 7 FROM COBOLADD 
113:43 15 CDI1g CALLER RCVD 93 + 93 + 93 = I FROM ASMBLRAD 
T13:43 15 CDI1f CALLER RCVD 93 + 93 + 4 = G¢1d FROM COBOLADD 
113:43 15 CD19 CALLER RCVD g4 + 4 + 4 = 9@1B FROM ASMBLRAD 
113:43 15 Cbl1g@ CALLER RCVD 94 + g4 + @5 = 9413 FROM COBOLADD 
113:43 15 CDI1f CALLER RCVD 9g5 + 95 + g5 = me FROM ASMBLRAD 
113:43 15 CD1@ CALLER RCVD @5 + 05 + 6 = M16 FROM COBOLADD 
113:43 15 CD1@ CALLER RCVD 06 + 06 + 06 = OO1H FROM ASMBLRAD 
113:44 15 CD1Y CALLER RCVD 06 + 06 + 07 = 0019 FROM COBOLADD 
113:44 15 CD1g CALLER RCVD @7 + 97 + 97 = GGA FROM ASMBLRAD 
113:44 15 CD19 CALLER RCVD 97 + 97 + gg = His FROM COBOLADD 
T13:44 15 CD19 CALLER RCVD gg + 98 + gg = GoD FROM ASMBLRAD 
T13:44 15 CDIM CALLER RCVD gs + g8 + 99 = G25 FROM COBOLADD 
113:44 15 CD1f CALLER RCVD g9 + g9 + Yo = ¢oG FROM ASMBLRAD 
113:44 15 CD1g CALLER RCVD g9 + ¢9 + 19 = Y@28 FROM COBOLADD 
113:44 15 CDIM CALLER RCVD 19+ 19+ 19 = @@3 FROM ASMBLRAD 
113:44 15 CD1¢ CALLER RCVD 19+ 19+ 11 = He FROM COBOLADD 
113:45 15 CDI1Y CALLER RCVD 11 + 11 + 11 = G@3C FROM ASMBLRAD 
T13:45 15 CD19 CALLER RCVD 11+ 11+ 12= ue FROM COBOLADD 
113:45 15 CD19 CALLER RCVD 12+ 12+ 12= tes FROM ASMBLRAD 
113:45 15 CD1f CALLER RCVD 12 + 12 + 13 = $987 FROM COBOLADD 
113:45 15 A END OF RUN 

113:45 G1 JT@1 15 COBOL RUN TIME : 1:14:476 
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APPENDIX G. COMPILER 
OPTIONS 
G.1l. GENERAL 
The optional // PARAM card provides a method of presenting parameters to the compiler 
to exercise specific COBOL options. 
; NOTE: Only one blank may precede the P of the word PARAM. 
2 


When PARAM cards are used, they must be positioned immediately following the // EXEC 
EXEC card in the compilation job stream. The // PARAM cards will be printed on the 
first page of the compiler output listing. 


If a PARAM card format error or an illegal parameter is encountered, a console message 
is produced and the compilation is terminated, 


If there are no PARAM cards supplied, the compiler will produce a source program listing 
and a source program diagnostic report, and generate an object module. 


Absence of PARAM cards implies: 
// PARAM LST=(S) 


G.2, LIST OPTIONS 


° 


Format: 
// PARAM LST=(spec 1,---,spec n) 


where spec l,..., spec n is one or more of the following: 


A — Activate ambiguity mode of reference resolution. Normally, references are resolved 
by the first appropriate definition encountered for the referenced name. The definition 
search process begins with the first entry in the appropriate division and continues 
through to the last entry in that division. 
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In the ambiguity mode, the definition search process is not terminated when the 


reference has been resolved, but continues in an attempt to uncover and report 
duplicate definitions. When the search of the division that corresponds to the 
reference type has been completed, the other divisions are also searched to 
determine if the highest possible qualifier rule has been violated. Diagnostic 
messages 151 through 154 report the presence of ambiguous references/definitions. 


C — Produce storage map and cross reference listing for the Data Division and Procedure 
Division. 


E — Ignore printer mismatch errors during compilation. 


K — Inhibit source item sequence number checking (columns 1 through 6 of the source 


item) 
L — Single space source and diagnostic listing. 
M — Produce Data Division storage map listing. 


N — Inhibit all listable output except PARAM card listing and compilation identi- 
fication heading. 


O — Produce object code listing. 
P — Produce Procedure Division storage map listing. 
S — Produce source program listing. 


W — Inhibit listing of all precationary diagnostics. These errors are identified by a 
severity code of P. 


OUTPUT OPTIONS 


Formats: 
// PARAM OUT=(spec 1,...,spec n) 


where spec 1,...,spec n is one or more of the following: 


A — Produce ASCII sensitive object program. 
L — Inhibit generation of linker control cards in object module. 
N — Inhibit generation of object module. 


P — Disregard mis-match errors for all object program print files. 
S — Disable object program SORT PARAM request console message. 


T — Inhibit compiler generation of a transfer address in the object mode. When 
invoked, the program cannot be executed unless it is CALLed. 





se 
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G.4, SOURCE LIBRARY INPUT 


Format: 


// PARAM IN=program-name/file-name 


where: 
program-name — 1- to 8-character name of source program to be compiled. 
file-name — 1- to 8-character name used to identify the file on which the source 


program resides. This name must appear on the LFD control card 
used to define the device to the Job Control program. 


If the file-name is omitted, the following name will automatically 
be supplied: 


Name when using basic system — SYSRES 
Name when using extended system — SORS$ 


NOTE: When only four tapes are available for compilation, source input should be 
mounted on SCR2. The compiler console message: 


DISMOUNT SCR2. MOUNT A SCRATCH TAPE ON SCR2. 


appears when tape is to be changed. 


G.5. COPY LIBRARY INPUT 
Format: 


// PARAM LIN=file-name 


filename — 1- to 8-character name used to identify the file on which the COPY 
library resides. This name must appear on the LFD control card used 
to define the device to the Job Control program. 


If the fileename is omitted, the following name will automatically be 
supplied: 


Name when using basic system — SYSRES 
Name when using extended system — COPY$ 


The COPY element-name is supplied in the source program via the COPY 
clause. 


G.6. OBJECT MODULE VERSION/REVISION NUMBER 
Format: 
// PARAM VER=vv/rr 
where: 
vv — version number 


rr — revision number 


These numbers are applied to compiler output module. 
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APPENDIX H. INTERMEDIATE 
RESULTS IN 
ARITHMETIC 
OPERATIONS 


GENERAL 


For certain arithmetic statements, the compiler generates code that uses internal 
work areas for storage of intermediate results. Intermediate results may be required 
in the following types of statements: 


(1) ADD, where more than one operand preceeds TO or GIVING. 
(2) SUBTRACT, where more than one operand preceeds FROM or GIVING. 


(3) Any statement containing an arithmetic expression which specifies more than 
one operation. 


Arithmetic expressions are simplified by the compiler to become a series of simple 
arithmetic operations that store partial results in intermediate result areas, which 
may then be used as operands in succeeding operations. 


The compiler provides a description for an intermediate result which is appropriate 
for its use in the operation or series of operations for which it is required. This 
description can be expressed as a numeric PICTURE; however, it should be noted 
that an intermediate result, used in the evaluation of an expression, may contain 
as many as 30 digits. 


ADD AND SUBTRACT STATEMENTS 


The description of the intermediate result area is determined by forming the composite 
of operands (see 6.6.1) and appending one additional digit in the most significant 
position to contain overflow when there are 10 or fewer operands immediately follow- 
ing the verb, or two digits when there are more than 10 operands, 
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H.3. EXPRESSIONS 


The following abbreviations are used: =) 
1 — length in mappable digits. 


pl — point location which is the number of places that the decimal point is dis- 
placed from the position it would occupy if the mappable digits were con- 
sidered to be an integer. For example, for the picture 99V9, pl = 1, because 
the decimal point has been displaced one position; for the picture PP999, 
pl = 5. A negative value in pl indicates trailing P’s in the associated picture, 
e.g., for the picture 99PP, pl = —2. 


OP1 — first operand 

OP2 — second operand 

ir — intermediate result 
comp — composite of operands 


mag — magnitude = 1 — pl 
The maximum value that a variable can assume is 10™@8 — 10-P1, 


When expressions are evaluated, a composite of all operands except those immedi- 
ately to the right of the exponentiation operator is formed. The receiving data item, 
when present, is considered in determining the composite. The following rules apply: 


pli, = max (plop, Plop?2) 
L;, = max (maggop1,Maggp?) + pl, 


Pli, = Plop1 + Plop2 
Li, = Maggp1 + Magop? + Plj, 


Plir = Ploomp 
= plop2 — Plop1 + Lop1 + Phir 
12 
30 











NOTE: When an expression appears in a COMPUTE statement and the ROUNDED 
option is specified, one digit is added in the least significant position of 
the receiver description before the composite is formed. 
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When application of the preceding rules produces an intermediate result length that 
is greater than 30, the description must be re-adjusted. Three cases must be con- 


sidered: 






is eel 





Pli, < Ploomp 





ae 
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. JOB CONTROL 
STREAM 


The load modules for the basic compiler are named COBOLBOO through COBOLB24; 
and for the extended compiler, COBOLO000 through COBOL024. 


SAMPLE JOB STREAMS 


Listed below are sample job streams used for compilation: 


BASIC (T.O.S.) 





JOB jobname 
/ OPTION NOVOL 
DVC 3 

LED PRNTR 
/ DVC 4 

LED SYSRES 
FING 5 

// LED SCR1 
DVC 6 

/ LED OBJFIL 
DVC 7 


LFD SCR 2 
EXEC COBOLBOO,SYSRES 
/ PARAM operand, operand,... 
/$ 
COBOL Source Program 


SSSR 


* 


/® 


BASIC (D.O.S.) 





JOB jobname 


y OPTION NOVOL 


pvc 3 
U4, LED PRNTR 
Y DvC 4 
Yj LFD SCR1 
/; pvc 10 
yy LFD SCR2 
yy DVC ll 
Y LED OBJFIL 
Y EXEC COBOLB, LOAD$LIB, , REL 
yi PARAM operand,operand,... 
$ 


COBOL Source Program 


EXTENDED (D.0.S.) 


Y4 Dvc 3 

yy LFD PRNTR 

4 DVC 20 
/ VOL xxxx 


// LED SYSRES 
// DVC 20 


yf VOL xxxx 
Y DVC 21 
yj VOL xxxx 
/ LED SYSPOOL 
yf EXEC COBOLOOO, LOAD$LIB, ,REL 
PARAM Operand,operand,... 


/, JOB jobname 
4); OPTION NOVOL, 


COBOL Source Program 
* 


/8 
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The following operating instructions pertain to compiling under DOS, with either the 
basic or extended compiler: 


(1) Boot from disc (the system will load the compiler from tape for basic COBOL 
only). 


(2) File job stream on disc via console: FILE (All cards in reader will be 
filed, including the COBOL source deck). 


(3) Run job via console: 


RUN jobname,,GO,A000 (A000 allocates remainder of memory for compilation when 


running in 65K environment). 
(4) Normal system console messages may appear during compilation. 
(5) Compilation is terminated when the following message appears on console: 


9400 COBOL COMPILATION TIME FOR program-id START xxxx END xxxx 


Operating instructions for running basic COBOL under TOS are the same as above, 
with the following exceptions: 


(1) Boot system from tape instead of disc. 
(2) Job stream may not be filed. 
(3) Console run command is: 


RUN jobname,,GO 


If the source program to be compiled exists on a library tape or disc file, follow the 
procedures described under PARAMS=IN, in Appendix G. 


The job stream statements used for compile-link-go on the extended disc compiler 
are as follows: 


(1) Compiling a source program from cards 


JOB name 

DvC 3 // LFD PRNTR 

DVC 20 Yj VOL DSP155 // LED Load 

DvC 20 // VOL DSP155 // DvC 21 // VOL DSP185 
LFD SYSPOOL 

EXEC COBOL,LOAD$LIB, ,REL 

PARAM (your options) 


FS 


Source Program 


Dvc 21 // VOL DSP185 // LBL RESV$LIB,DSP185 
LED RESV$ 

EXEC DLINK, LOAD$LIB, ,REL 

DvC 21 // VOL DSP185 // LBL USERLIB*,DSP185 
LFD LIB1 

EXEC LIBUPS, LOAD$LIB, ,REL 

PARAM LIN=(1,NALT1,NALT2) 


ee 


FILL.. “LIB isl 
ADDL PROGRAM NAME** (MCL) 


SECTION: PAGE: 


UP-7709 UNIVAC 9400 COBOL Rev. 1 Appendix I 
Rev. 2 SUPPLEMENTARY REFERENCE Wome ata: whee: 


* 


// DVG XX WHATEVER COMPILED PROGRAM 
EXECUTION 4 // Dvc XX } HAS ASSIGNED 
ys EXEC PROGRAM NAME***,USERLIB, LIB1,REL 
& 


(2) Compiling a source program from a disc source library 


ree JOB name 
// DVC 3 // LED PRNTR 
// DVC 20 // VOL DSP155 // Dvc 21 // VOL DSP185 
// LED SYSPOOL 
// DVS 23 // VOL DSPXXX // LBL NAME,DSPXXX 
LFD LIBIN 

4), EXEC COBOL, LOADLIB, ,REL 

/ PARAM IN=PROGRAM NAME/LIBIN 
// PARAM (your options) 
// DVC 21 // VOL DSP185 // LBL RESV$LIB,DSP185 


// LED RESV$ 
4; EXEC DLINK, LOAD$LIB, ,REL 
4; DVC 21 // VOL DSP185 // LBL USERLIB*,DSP185 
/ LED LIB1 
Yj EXEC LIBUPS, LOAD$LIB, ,REL 
/ PARAM LIN=(1,NALT1,NALT2) 
/$ 
FILL LIB1,1I,1 
ADDL PROGRAM NAME** (MCL) 





* 


// DNC XX eS COMPILED PROGRAM 

// DVC XX} HAS ASSIGNED 

// EXEC PROGRAM NAME***, USERLIB*, LIB1, REL 
& 


*USERLIB may be a temporary disc area from which the program may be executed. 
If the object program is to be saved, it must be transferred to a private library. 


** This is the name assigned by the linker, i.e., PROGRAM ID. IFTEST. ADDL 
IFTESTOO(MCL) 


When the problem program is segmented, each segment must be added via ADDL, 
i.e., IFTEST contains 4 segments: 


ADDL IFTESTOO 
ADDL IFTESTO1 
ADDL IFTESTO2 
ADDL IFTESTO3 


(MCL) or ADDL IFTEST.ALL (MCL) 





***This is the name assigned the problem program by the PROGRAM-ID clause, 
i.e., // EXEC IFTEST,USERLIB,LIB1,REL. 
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DATA MANAGEMENT INTERFACE AND JOB CONTROL INFORMATION 


The following is offered to clarify the use of Data Management by the COBOL com- 
piler. A distinction must be made, however, between the compiler itself, and the code 
produced by it. 


The compiler uses its own input-output routines which are designed solely to meet 
the needs of the compiler. Data Management is not utilized at compile time. 


The code produced by the compiler from source statements makes use of Data Manage- 
ment. This enables compatibility with other languages and a normal amount of flexi- 
bility when defining files. 


The compiler does a great deal of work for the user on his I-O functions, and, fora 
better understanding of the requirements and options, the user should be familiar with 
UNIVAC 9400 System Data Management System Programmers Reference, UP-7629 
(current version). 


To supply label information for files on tape volumes, the LBL statement is used. 
This statement normally follows a VOL statement in the control stream. The LBL 
statement is required for all standard tape labels. 


// VOL XXXXXX (tape number supplied by user) 
// LBL file-id, file-serial-number, volume-sequence-number, expiration-date, creation- 
date, file-sequence-number, generation-number, version-number. 


PARAMETER LENGTH IN DESCRIPTION 
CHARACTERS 


file-id 


Cannot contain imbedded blanks. Name 
of file as specified in SELECT statement, 
i.e., SELECT TAPEIN ASSIGN TO TAPE. 


file-serial-number Identical to the first volume serial number 


appearing on the VOL card. 


volume-sequence- Used with multireel files and is the posi- 
number tion of the current reel with respect to the 


first reel on which the file begins. 


expiration-date Expiration date of the file in the form 
(6 = blank) Byyddd. 


creation-date Creation date of the file in the form Byyddd. 


file-sequence- Used with multireel files to assign a numeric 
number sequence for a file within a multifile set. 


generation-number Uniquely identifies the edition of a file. 


version-number Indicates the version of a generation of a 


(of generation) file. 
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1.4. LINKER CONSIDERATIONS 


NE The object module produced by the basic compiler is always written to the tape trans- 


port whose LFD name is OBJFIL. 


If the transport is at load point at the start of the compilation, the object module wi't 
become the first entry in OBJFIL. If the transport is not at load point at the start of 
the compilation, stacking of object modules is implied, and the compiler output will 
be placed behind the existing modules already on OBJFIL. The compiler does not 
rewind OBJFIL at the end of a compilation. 


If the single object module produced by the compiler represents the complete user 
program, OBJFIL should be rewound prior to the start of compilation. The compiler 
provides the necessary communication for the linkage editor via embedded control 
cards within the object module output, so that the linking is done without requiring 
linker control cards in the job stream. All that is necessary, besides device alloca- 
tion, is an EXEC control card for the linkage editor (see UNIVAC 9400 System 
Linkage Editor Programmers Reference, UP-7703 (current version). The linkage 
editor then processes the first module on OBJFIL and places the executable program 
back on OBJFIL or, if specified, LDMFIL. 


Therefore, for a segmented or nonsegmented COBOL program, the following job stream 
can be used: 


// wes  // LED PRNIR 
/ 


OPTION NOVOL 
Y pvc 5 ©// VOL NNNNNN // LED SYSRES 


DVC 6 // LED OBJFIL 
~~ DVC 7 / LFD SCR1 
/ EXEC LINK 


If the COBOL program being compiled represents only a part of a complete user 
program, the user must define, using the control stream, the structure and position 
of all modules in the program. The control cards required are defined in UNIVAC 
9400 System Linkage Editor Programmers Reference, UP-7703 (current version). 


Nonsegmented COBOL programs may be linked in any fashion, providing the user 
has ensured compliance with VCON and segment loading requirements. COBOL 
modules contain ENTRY points for all entry points specified within the program 
and VCON references for all CALLed program-names. It should be noted that if the 
user links a COBOL program as an overlay segment, the entire program (including 
the Data Division) resides in the segment. 


The extended compiler places the compiled object module into MCL. Since MCL is 
initialized at the start of each job, a compilation must be followed by a subsequent 


job step linking the compiler output, within the same job. 


Following is the job stream to link the output of the extended compiler: 


Y) Dvc 21 = // VOL XXXX 


LBL RESVSLIB, DSPXXXX 





Y4 LFD RESV$ 
/ EXEC DLINK,LOAD$LIB, ,REL 
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To execute the linked program, the program may first be moved to USERLIB: 


y pvc 21 // VOL XXXXx oa 


LBL USERLIB, DSPXXXX 
Y LFD LIB 
Y OPTION NOVOL 

EXEC LIBUPS,LOAD$LIB, ,REL 
i PARAM LIN=(1,NALT1,NALT2) 





$ 
FILL LIB1,1,1 
ADDL program-name,ALL(MCL) 





Linked object programs may be executed directly from the MCL area, in which case 
the preceding job step is unnecessary. Programs that exist in the MCL area are 
available only for the duration of the job in which they are created. 


SEQUENTIALLY ORGANIZED DISC CONTROL STATEMENTS 


The job control statements having sequential organization and used to define a file 
on disc are described in this paragraph. For a more detailed description of the 
various options, consult UNIVAC 9400 System Job Control for Disc Systems 
Programmer Reference, UP-7585 (current version). 


// DVC logical-unit [,ALT] 


A DVC card must be included for each file to define the logical-unit-number of 
the device on which the first or only volume of the file resides. 


The ALT parameter is used for a multivolume file if a second device is available. — 


// VOL volume-number [,volume-number, .. .] 


This statement contains the volume-serial-number(s) of the disc pack(s) to be 
mounted on the device whose DVC card it immediately follows. 


The volume-number of each volume in the file must be specified on the VOL card 


in the same order (volume-sequence-number order) as the volumes occur in the 
file. 


Ad 
// ExT }& C : 
Nf? ie » Qty 
Tr 


This statement provides information necessary for allocation of the file on the 
device. It is required the first time the program is run if the space for the file 
has not been previously allocated. Multivolume files must be allocated prior to 
execution of the program. 


file-serial-number 
// UBL file-id, } VCHECK 


[ ,volume-sequence-number] 
blank 


[ ,expiration-date][ ,creation-date] 


The file-id identifies the file by name. This name is external to the COBOL program ee 
but may, for documentation purposes, be the same as the file-name used in the 
SELECT and FD entry. 
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file-serial-number 


For files OPENed for OUTPUT, the file-serial-number of the first volume in the 
file becomes the file-serial-number for all volumes. Files OPENed for INPUT or 


I-O must have a file-serial-number, on all volumes, equal to the file-serial-number 
specified on the LBL card. 


VCHECK 


For files OPENed for OUTPUT, the file-serial-number of all volumes in the fileset 

is set equal to the volume-serial-number of the first volume. When the file is OPENed 
for INPUT or I-O, the file-serial-number of all volumes must equal the volume-serial- 
number of the first volume. 


blank 


File-serial-numbers are not checked or created. 


volume-sequence-number 


For files OPENed for OUTPUT, this value should be 1. This value will be incre- 
mented by 1 for each additional volume in the file. On INPUT or I-O files, the 
volume-sequence-number of the first volume must be equal to the volume-sequence- 
number on the LBL card. Each additional volume in the file must have a volume- 
sequence-number greater than the previous volume-sequence-number by 1. Volume- 
sequence-numbers are neither checked nor created if this operand is omitted. 


expiration-date 


This value is written if the file is OPENed for OUTPUT. It is not checked when 
the file is OPENed for INPUT or I-O. For documentation purposes, these values 
may appear in the file description in the VALUE OF clause. 


creation-date 


This value is written if the file is OPENed for OUTPUT. It is checked when the 
file is OPENed for INPUT or I-O, and, if it does not match, the job is aborted. 


// LFD file-name, SQ, nn [ ,NEW] ~< 
file-name The external name assigned to the file in the SELECT entry. 


SQ Defines a sequential file; corresponds to the ORGANIZATION IS ~t 
SEQUENTIAL clause. 


nn The maximum number of extents which can appear for a volume of this 
file. The maximum possible is 16. 


NEW Indicates a new file. If this operand is not specified, the file already 
exists. 
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The following example shows a COBOL file definition and job control stream. 


In this example, a new file of three extents is to be created. The first extent is 
to be a contiguous area of five cylinders, the second extent, a contiguous area 
of eight cylinders, while the third is for a contiguous area of four tracks. The 
name of the file is TEMPORARY FILE, the device name is FILE-A. 


COL - 72 
IDENTIFICATION DIVISION. 
PROGRAM-ID. SEQDIS. 
ENVIRONMENT DIVISION. 
INPUT-OUTPUT SECTION. 
SELECT TEMPORARY-FILE 
'FILE-A' DISC ORGANIZATION IS SEQUENTIAL. 
DATA DIVISION. 
FILE SECTION. 
FD TEMPORARY =FILE 
LABEL RECORDS ARE STANDARD 
DATA RECORDS ARE name-1, name-2 ... name-n 
VALUE OF CREATION-DATE IS '69188' 
EXPIRATION-DATE IS '69365'. 
01 name-1. 
Yy DVC 20 
Yj VOL DSPO06 
EXT C,0,CYL,5 X 
C,0,CYL,8 xX 


i 

2 C,0,TRK,4 

LBL TEMPORARY-FILE, ,1,69365,69188 
/ LFD FILE-A,SQ,3,NEW 


SS 


DIRECT OR RELATIVE ORGANIZATION DISC CONTROL STATEMENTS 


The job control statements used to define a file on disc, whose organization is 
direct or relative, are defined in this paragraph. For a more detailed description of 
the various options, consult the UNIVAC 9400 System Job Control for Disc Systems 
Programmers Reference, UP-7585 (current version). 


// DVC logical-unit 


A DVC statement must be included for each volume of the DAM file because all 
volumes of a direct access file must be on-line. There is a maximum of eight volumes 
to a file. 


// VOL volume-number 
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This statement contains the volume-serial-number of the disc pack to be mounted 
on the device whose DVC card it immediately follows. One VOL statement should 
be included for each DVC statement. 


Cyl » Qty 


Addr 
ee 
Trk 


// EXT fe 


This statement provides information necessary for creation or expansion of the file 
on the device. It is required the first time the program is run if the space for the file 
has not been previously allocated. 


file-serial-number 
// LBL file-id, 4 VCHECK » [volume-sequence-number 
blank 


sexpiration-date ,creation-date] 


The file-id identifies the file by name. This name is external to the COBOL program 
but may, for documentation purposes, be the same as the file-name used in the SELECT 
and FD entry. 


file-serial-number 


For files OPENed for OUTPUT, the volume-serial-number of the first volume in the 
file becomes the file-serial-number for all volumes. Files OPENed for INPUT or 
I/O must have a file-serial-number, on all volumes, equal to the file-serial-number 
specified on the LBL card. 


VCHECK 


For files OPENed for OUTPUT, the file-serial-number of all volumes in the file is 
set equal to the volume-serial-number of the first volume. When the file is OPENed 
for INPUT or I/O, the file-serial-number of all volumes must equal the volume-serial- 
number of the first volume. 


blank 


file-serial-numbers are not checked or created. 


Volume-sequence number 


For files OPENed for OUTPUT, this value should be 1. This value will be incre- 
mented by 1 for each additional volume in the file. On INPUT or I/O files, the 
volume-sequence-number of the first volume must be equal to the volume-sequence- 
number on the LBL card. Each additional volume in the file must have a volume- 
sequence-number greater than the previous volume-sequence-number by 1. 


Volume-sequence-numbers are neither checked or created if this operand is omitted. 


Expiration-date 


This value is written if the file is OPENed for OUTPUT. It is not checked when 
the file is OPENed for INPUT or I/O. For documentation purposes, these values 
may appear in the file description in the VALUE OF clause. 
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Creation-date 


This value is written if the file is OPENed for OUTPUT. It is checked when the 
file is OPENed for INPUT or I/O, and, if it does not match, the job is aborted. 


// LED file-name,DR,nn_ [ ,NEW] 
file-name The external name assigned to the file in the SELECT entry. 


DR Defines a direct or relative access file; corresponds to the ORGANIZA- 
TION IS DIRECT or ORGANIZATION IS RELATIVE clause. 


nn The total number of extents which can appear for this file. The maximum 
possible is 16 per volume. For an eight-volume file with 16 extents per 


volume, this number would be 128. 


NEW Indicates a new file. If this operand is not specified, the file already 
exists. 


The following examples shows a COBOL file definition and job control stream. 


In this example, a new file of four extents on two volumes is to be created. The 
first extent is to be a contiguous area of five cylinders, the second extent, a con- 
tiguous area of eight cylinders, while the third is for a contiguous area of four 
tracks. The fourth extent is on the second volume and is to be a contiguous area 
of six cylinders. 


IDENTIFICATION DIVISION. 
PROGRAM-ID. RANDIS. 
ENVIRONMENT DIVISION. 
INPUT-OUTPUT SECTION. 


SELECT TEMPORARY-FILE ASSIGN TO 'FILEA' 
DISC ACCESS IS RANDOM 

ORGANIZATION IS RELATIVE 

ACTUAL KEY IS DATA-NAME 


DATA DIVISION. 

FILE SECTION. 

FD TEMPORARY-FILE 
LABEL RECORDS ARE STANDARD 
DATA RECORDS ARE name-l, name-2 ... name-n 
VALUE OF CREATION-DATE IS '69365'. 








01 name-l. 


10 
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Jj ING, 20 COL-72 
i VOL DSP006 
Y EXT C,,CYL,5 
Yj 1 C,,CYL,8 X 
Y 2 C,,TRK,4 X 
Y DVC 21 

Y VOL DSPO07 

/; EXT C,,CYL,6 
Yy LBL TEMPORARY FILE, ,1,69365,69188 

/ LED FILEA,DR,4,NEW 


INDEXED SEQUENTIAL DISC FILE CONTROL STATEMENTS 


The job control statements used to define a file on disc, whose organization is 
indexed, are described in this paragraph. For a more detailed description of the 
various options, consult the UNIVAC 9400 System Job Control Programmers 
Reference, UP-7585 (current version). 


// DVC logical-unit 


A DVC statement must be included for each volume of the ISAM file. All volumes of 
the file must be on-line. There is currently a maximum of four volumes to a file. 


// VOL volume-number 


This statement contains the volume-serial-number of the disc pack to be mounted on 
the device whose DVC card it immediately follows. One VOL statement should be 
included for each DVC statement. 


Addr 
// EXT C, extent-type, {Cyl }, qty 
Trk 


This statement provides information necessary for the creation of the file on the 
device. It is required, the first time the program is run if space for the file has not 
been previously allocated. If the file is new, the LFD statement must specify NEW 
and each DVC-VOL must be followed by an EXT statement. 


The first volume of the file must have an EXT statement describing the extent for 
the optional master index and the required cylinder index. 


Addr 
Tf EXE CG, 045-0Cyl. } a ety 
Trk 


The first parameter must be C or omitted. The second parameter, extent type, must 
be 04, to identify an index area extent request. The third and fourth parameters 
specify the amount of space to be reserved for the index area. 
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There may be one or two additional extents allocated on the first volume extent; type 
= 01 defines a prime data area extent and type = 02 defines an independent overflow 
area extent. Both of these types must begin on cylinder boundaries and must be 
requested as an integral number of cylinders, 


file-serial-number 
// LBL file-id, 4 VCHECK » [| volume-sequence-number 
blank 


,expiration-date ,creation-date] 
file-id 
Identifies the file by name. This name is external to the COBOL program but may, 


for documentation purposes, be the same as the file-name used in the SELECT and 
FD entry. 


file-serial-number 


For files OPENed for OUTPUT, the volume-serial-number of the first volume in the 
file becomes the file-serial-number for all volumes. Files OPENed for INPUT or I/O 
must have a file-serial number, on all volumes, equal to the file-serial-number speci- 
fied on the LBL card. 


VCHECK 


For files OPENed for OUTPUT, the file-serial-number of all volumes in the file is 
set equal to the volume-serial-number of the first volume. When the file is OPENed 
for INPUT or I/O, the file-serial-number, on all volumes must equal the volume- 
serial-number of the first volume. 


blank 


File-serial-numbers are not checked or created, 


Volume-sequence-number 


For files OPENed for OUTPUT, this value should be 1. This value will be incre- 
mented by 1 for each additional volume in the file. On INPUT or I/O files, the 
volume-sequence-number of the first volume must be equal to the volume-sequence- 
number on the LBL card. Each additional volume in the file must have a volume- 
sequence-number greater than the previous volume-sequence-number by 1. 


Volume-sequence-numbers are neither checked nor created if this operand is omitted, 


Expiration-date 


This value is written if the file is OPENed for OUTPUT. It is not checked when the 
file is OPENed for INPUT or I/O. For documentation purposes, these values may 
appear in the file description in the VALUE OF clause. 

Creation-date 

This value is written if the file is OPENed for OUTPUT. It is checked when the 
file is OPENed for INPUT or I/O, and, if it does not match, the job is aborted. 


// LED file-name,IS,nn{ ,NEW] 
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File-name 


Se The external-name assigned to the file in the SELECT entry. 


IS 


Defines an indexed sequential file; corresponds to the ORGANIZATION IS INDEXED 
clause. 


nn 


The total number of extents which can appear for this file. Only 1 prime data area 
extent is allowed per volume. The first volume must contain the index area extent. 
Any volume may contain the independent overflow area extent. 


NEW 


Indicates a new file. If this operand is not specified, the file already exists. 
The following example shows a COBOL file definition and job control stream. 


In this example, a new file of three extents on one volume is to be created. The first 
extent is to be an index area of two tracks. The second extent is to be prime data 
area of eight cylinders. The third extent is for an independent overflow area of one 
cylinder. 


IDENTIFICATION DIVISION. COL - 72 
PROGRAM-ID. INDXSQ. 

ar ENVIRONMENT DIVISION. 

bias INPUT-OUTPUT SECTION. 


SELECT TEMPORARY-FILE ASSIGNED TO 'FILEA' DISC 
ACCESS IS SEQUENTIAL 

ORGANIZATION IS INDEXED 

RECORD KEY IS DATA-KEY. 


DATA DIVISION. 
FILE SECTION. 


FD TEMPORARY-FILE 
LABEL RECORDS ARE STANDARD 
DATA RECORD IS DATA~RECORD. 


01 DATA-RECORD. 
02 DATA~KEY. 


DVC 20 

VOL DSP006 

EXT C,04,TRK,2 x 
EXT ©C,01,CYL,8 X 


Ne ne 


EXT C,02,CYL,1 
LBL TEMPORARY-FILE, ,1 ,69365 ,69188 
LFD FILEA,IS,3,NEW 


= 
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It should be noted that if an ISAM file is to be recreated, the existing file must first 
be logically deleted from the disc pack VTOC (SCRATCHed). Refer to UNIVAC 
9400 System Data Management System Programmers Reference, UP-7629 (current — 
version). 


USE OF THE COMPILER PATCHING FACILITY 


The 9400 System compiler has its own patch routine, which applies patches directly 
to segments as they are loaded into memory at compilation time. Each segment being 
patched has a header card which precedes the appropriate patch cards. (Only 1 header 
card per SEG is acceptable.) 


Patch cards are placed in the job stream immediately preceding the IDENTIFICATION 
DIVISION card, and must be in ascending sequence according to segments involved. 
Following are the card formats: 


HEADER CARD, beginning in card column 1: 

$PTCH n SEG 

where: n = Segment Identification 

PATCH CARD, beginning in card column 1: 

$PTCH t aaaa dppppd... 

where: t = patch data type H = hexadecimal; C = EBCDIC 
a = hexadecimal address of area to be patched 
d = delimiter, patch data is bounded by apostrophes 

p = contents of patches 


I 


Patches are released when necessary by Systems Programming with an explanation 
of the compiler problem involved. 


COMPILER STATUS INDICATORS 
The compiler sets the following status indicators in the user program switch indicator 
(UPSI) byte. These indicators may be used in conjunction with the // SKIP job control 


card: 


Switch-0 (X‘80’) is set to 1 if the compiler does not create a complete object module. 
This condition might be caused by an ‘“‘insufficient memory available’’ diagnostic or 
a compiler abort. 


Switch-1 (X‘40’) is set to 1 if the compiler issues any diagnostic message with 
severity code other than P. 
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APPENDIX J. COMPILER 
DIAGNOSTICS AND 
CONSOLE MESSAGES 


ek: 


j2. 


GENERAL 


The 


diagnostic listing is produced as the last printed output of the compiler. Each 


diagnostic message contains the compiler-generated line number on which the error 
occurred, the diagnostic severity code, the diagnostic number, and the diagnostic 
message text. 


The 


tables in this section are arranged by diagnostic number and contain a detailed 


explanation of each error condition. 


The 


Pp 


diagnostic severity code definitions are: 


precautionary — No source language error was encountered, but an unusual or 
potentially undesirable condition was noted by the compiler. 


changed — A character, word, clause, entry or statement in the source program 
is omitted or used incorrectly. To compensate for the error, the item has been 
changed by the compiler to avoid its deletion and reduce the probability of 
error propagation. Execution of the object time program taay give unpredictable 
results. 


uncorrectable — A source language error was detected which caused the com- 
piler to delete a character, word, clause, entry, or statement from the source 
program. The compilation continues but other errors may result because of the 
deleted item. Execution of the object program in general, gives unpredictable 
results, 


compiler restriction exceeded — The compilation continues but, to generate 
code for the excessive items, a recompilation is necessary after source program 
modification or with more storage assigned to the compiler. 


COMPILE TIME DIAGNOSTICS 


The following charts explain the error messages and the related recovery procedures, 
The messages are in ascending order based on the message number. 


MESSAGE | 


NUMBER 


SEVERITY 
CODE 


DIAGNOSTIC TEXT 


ERROR IN SOURCE LINE 
SEQUENCE NUMBERING. 





AREA-A NON-BLANK WITH 
HYPHEN IN COLUMN 7. 





ERROR IN COLUMN 7 OF 
SOURCE LINE. 


SPACE FOLLOWING LEFT 
PARENTHESIS. 


EXPLANATION 


The characters in columns 
1 to 6 of the source line are 
alphanumerically less than 
columns 1 to 6 of the pre- 
vious source line. 


A nonblank character has 
been found in area’A (col- 
umns 8 to 11) when contin- 
uation has been specified 
by a hyphen. in column 7. 


An invalid character has 
been found in column 7. 


One or more spaces have 
been detected following a 


left parenthesis. 


The sequence number, 
columns 1 to 6 of the source 
line, is an optional entry 
used only by the programmer 
to establish a sequence 
among the various lines of 
coding. 


When continuation is speci- 
fied by hyphen in column 7, 
the continued portion must 

begin in area B (columns 12 


to 72). 


The only acceptable charac- 
ters for column 7 are the 
space, hyphen (continuation), 
or asterisk (comment). 


In 9400 COBOL spaces must 
not separate left or right 
parentheses from that which 
they enclose. 


The source line is pro- 
cessed as though the error 
had not occurred. 


The first nonblank character 
after column 7 is accepted 
as the beginning of con- 
tinuation, 


A space is assumed to have 
‘been found in column 7, 


Processing continues as if 
the space had not occurred. 
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EXPLANATION 


DIAGNOSTIC TEXT 


MESSAGE | SEVERITY 
NUMBER CODE 


i 


NON-NUMERIC LITERAL 
CONTINUATION DID NOT 
BEGIN WITH QUOTE OR 
APOSTROPHE. 


IMPROPER TERMINATION 
OF NON-NUMERIC 


‘LITERAL LITERAL. 


EXCESSIVE CHARACTER 
STRING CHAR-STRING. 


INVALID CHARACTER DE- 
TECTED IN CHAR-STRING. 


The continued portion of a 
nonnumeric literal did not 
begin with a quote or 
apostrophe, 


The second of the two 
quotes or apostrophes which 
enclose a nonnumeric literal 
is not followed by a space 
or punctuation and a space. 
The first 30 characters of 
the nonnumeric literal are 
noted in the diagnostic. 


A character string which is 
greater than its maximum 


legal size has been detected. 


The first 30 characters of 
the string are noted in the 
diagnostic. 


An invalid character was 
found in the character string 
displayed in the diagnostic, 


When continuation of a non- 
numeric literal is specified 
by a hyphen in column 7, 
the continued portion must 
begin with a quote or apos- 
trophe in area B, 


The terminating quote or 
apostrophe enclosing a non- 
numeric literal must be fol- 
lowed by a space or period 
and a space. - 


Maximum legal sizes.are: 
132 characters for nonnu- 
meric literals, 20 characters 
for numeric literals (in- 
cluding sign and decimal 
point), 30 characters for 
nonliterals. 


An invalid character is one 
which is in the COBOL 
character set but which is 
made invalid by the context 
in which it appears, i.e., 
PI'TURE. 


Processing continues as if 
a quote or apostrophe oc- 
curred prior to the first 
nonblank character. 


Processing continues as if 
a space had occurred. 


Processing continues after 
the excessive characters 
are discarded, 


The entire string is deleted, 
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DIAGNOSTIC TEXT 


ILLEGAL CHARACTER DE- 


NON-NUMERIC LITERAL 


MESSAGE! SEVERITY 
NUMBER CODE 
HYPHENS IN COLUMN 7 


012 
AND QUOTE OR APOS- 
TROPHE EXPECTED. 


013 SPACE PRECEDING A 
RIGHT PARENTHESIS. 


HYPHEN EXPECTED IN 
COLUMN 7. 


Cc 
Cc 
Cc 


TECTED IN CHAR-STRING. 


OF SIZE 0 ENCOUNTERED. 


EXPLANATION 


The entire string is deleted, 


An illegal character was 
found in the character-string 
displayed in the diagnostic. 


Two quotes or apostrophes 
with no intervening charac- 
ters were encountered, 


A nonnumeric literal is being 
continued and a hyphen is 
missing from column 7. 


There is no terminating 
quote or apostrophe on the 
previous source line and no 
hyphen in column 7 or quote 
or apostrophe on the current 
source line to indicate con- 
tinuation, 


One. or more spaces have 
been detected preceding right 
parenthesis. 


An illegal character is one 
that is not in the cobol 
character set, i.e., # 


A nonnumeric literal must 
have at least one character 
between the enclosing 
quotes or apostrophes. 


A hyphen in column 7 and a 
quote or apostrophe in area 
B are needed to continue a 
nonnumeric literal. 


Continuation of a nonnumeric 
literal is specified by a hy- 
phen in column 7 and a 
quote or apostrophe in area 
B preceding the continued 
portion of the nonnumeric 
literal. 


In 9400 COBOL spaces 
must not separate left or 
right parentheses from that 
which they enclose. 


A nonnumeric literal of one 


space character is assumed. 


Processing continues as if 


a hyphen were encountered. 


The nonnumeric literal is 
terminated on the previous 
source line at column 72, 


Processing continues as if 


the space had not occurred. 
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MESSAGE | SEVERITY 


NUMBER 


014 


CODE 


DIAGNOSTIC TEXT 





SYNTAX REQUIRES ——— 


CHAR-STRING INVALID. 


EXPLANATION 


The character-string listed 
as invalid in the message 
text has produced a syntax 
error, The required item is 
a source string that would 
have correctly completed 
the clause, entry, or state- 
ment in error. 


See 9400 COBOL reference 
manual for language formats, 





If the error appears within 
a clause, such as ACCESS 
or OCCURS, the clause is 
deleted. 


If the error appears within 
an entry, such as the as- 
Sign device type or an in- 
valid name following FD, 
the entire entry is dis- 
carded, 


If the error appears within 
a statement, the statement 
is ignored. 


When .a syntax error occurs, 
source strings are ignored 
until one of the following 
listed recovery types is 
detected, whereupon pro- 
cessing resumes. Recovery 
is possible on the string 
listed as invalid in the 
diagnostic. 
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EXPLANATION 


DIAGNOSTIC TEXT 


MESSAGE| SEVERITY 
NUMBER CODE 







































IDENTIFICATION, PRO- 
GRAM-ID, AUTHOR, IN- 
STALLATION, DATE- 
WRITTEN, DATE-COM- 
PILED, SECURITY, RE- 
MARKS, ENVIRONMENT 
CONFIGURATION, 
SOURCE-COMPUTER, 
OBJECT-COMPUTER, 
SPECIAL-NAMES, any 
SPECIAL-NAME definition, 
INPUT-OUTPUT, FILE- 
CONTROL, SELECT, FOR, 
FILE-LIMIT, ACCESS, 
ACTUAL, SYMBOLIC, 
RELATIVE, ORGANIZA- 
TION, RESERVE, I-0- 
CONTROL, RERUN, SAME, 
APPLY, DATA, FILE, FD, 
SD, BLOCK, RECORD, LA- 
BEL, RECORDING, DATA, 
VALUE, OCCURS, PICTURE, 
USAGE SYNCHRONIZED, 
JUSTIFIED, BLANK, COM- 
PUTATIONAL, COMP-3, 
COMP-4, DISPLAY, INDEX, 
SIZE, MAP, level 

number, WORKING- 
STORAGE, LINKAGE, 
PROCEDURE, PROCEDURH- 
NAME IN AREA A, any 

verb, 





COMPILER ERROR This diagnostic.is only is- 
sued as the result of a com- 


piler/system error. 


The occurrence of this 
diagnostic should be re- 
ported using the SSFR 
procedure, 
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DIAGNOSTIC TEXT 


FILE-NAME FILE-NAME 
NOT PREVIOUSLY 
SELECTED. 


EXTERNAL-NAME 
EXTERNAL-NAME NOT 


PREVIOUSLY ASSIGNED. 


CLAUSE PREVIOUSLY 
SPECIFIED FOR FILE- 
NAME. 


NAME PREVIOUSLY DE- 
FINED AS EXTERNAL- 
NAME OR FILE-NAME. 


MISSING DATA DIVISION 
HEADER. 


EXPLANATION 


The file-name being refer- 
enced has not been defined 
in a SELECT entry. 


The external-name being 
referenced has not been as- 
signed in a SELECT entry. 


An entry, such as APPLY 
BLOCK-COUNT, has been 
multiply specified for the 

listed file-name. 


The listed name appears in 
more than one SELECT 
entry. 


The PROCEDURE DIVI- 
SION header has been en- 
countered without prior 
detection of the DATA 
DIVISION header. 


A file-name referenced in a 
RERUN, MULTIPLE, 
VERIFY, RESTRICTED, 
BLOCK-COUNT or SAME 
AREA entry must appear in 
a SELECT entry. 


The external-name specified 
in a RERUN entry must 


match the assigned external- | 
name or, if external-name was 


not specified, the first 8 
characters of the SELECT 
file-name. 


An entry, such as APPLY 
BLOCK-COUNT, should be 
specified only once for a 
given file. 


File-names and external- 
names specified in SELECT 
entries must be unique. 


All four division headers 
must appear in every pro- 
gram and conform to the 
following order: IDENTI- 
FICATION, ENVIRON- 
MENT, DATA, PRO- 
CEDURE. 


The referenced file-name is 
deleted from the entry. 


The RERUN entry is deleted, 


The duplicate entry is de- 
leted. 


The entire SELECT entry 
is deleted. 


Processing continues with 
the PROCEDURE DIVI- 
SION header. If Data 
Division entries exist, 
they are ignored. 


INOILDIaS 
{ xtpuoddy 


a” 
c 
vu 
vu 
rm 
m 
= 
m 
z 
+ 
> 
a 
< 
aA 
mi 
n 
m 
a 
m 
z 
(@) 
m 


10905 00%6 DVAINN 





MESSAGE| SEVERITY 
NUMBER CODE 





DIAGNOSTIC TEXT 


MISSING DATA AND PRO- 
CEDURE DIVISION 
HEADER. 


RESERVE INTEGER 
LITERAL PROCESSED 
AS 1. 


FILE-NAME FILE-NAME 
CONFLICTS WITH PRE- 
VIOUS SAME AREA 
CLAUSE. 


CLAUSE CLAUSE IS OUT- 
SIDE SELECT ENTRY. 


CURRENCY SIGN SYMBOL 
CHARACTER INVALID. 


The end of the source pro- 
gram has been reached 

without a DATA DIVISION 
or PROCEDURE DIVISION 
header being encountered. 


The number of alternate 
areas specified in the 
RESERVE clause is not 
acceptable, 


The listed file-name ap- 
pears in multiple SAME 
AREA or SAME RECORD 
AREA clauses. 


A clause, such as SYM- 
BOLIC, is not associated 
with the previously com- 
pleted SELECT entry. 


The currency sign specified 
is not contained within the 

valid currency sign charac- 
ter set. 


All four division headers 
must appear in every source 
program and conform to the 
following order: IDENTI- 
FICATION, ENVIRON- 
MENT, DATA, PRO- 
CEDURE. 


The RESERVE clause 
must specify no or one 
alternate area. 


A file-name cannot be 
specified in more than one 
SAME AREA or SAME 
RECORD AREA clause. 


Clauses associated with 
a SELECT entry must ap- 
pear within the entry, 
e.g., prior to the period 
that terminates the entry. 


The currency sign symbol 
must be within the COBOL 
character set but cannot 
be one of the following: 
The digits 0 through 9A 
BCDPRS V XZ space 
* Ps eC pore. 


EXPLANATION. 


If Data Division entries 

or Procedure Division state 
ments exist, they are 
ignored. 


One alternate area is 
allocated for this file. 


The file-name in error 
is deleted from the 
SAME AREA clause. 


The clause is deleted. 


The clause is deleted and 


the currency sign remains 
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MESSAGE 
NUMBER 


SEVERITY 
CODE 


DIAGNOSTIC TEXT 


EXTERNAL-NAME 


EXTERNAL-NAME 


TRUNCATED. 


—_CHEADER 
REQUIRED AT THIS 
POINT. 


CLAUSE CONFLICTS 
WITH ACCESS METHOD 
SPECIFICATION. 


FILE-NAME PREVIOUSLY 
SPECIFIED AS RERUN 
CONTROLLER. 


The external-name contains 


more than 8 characters. 


The current source line 
must be preceded by the 
listed header. 


OPTIONAL, RESERVE, 
and APPLY FILE-PRE- 
PARATION are applicable 
only to disc files with 
ACCESS SEQUENTIAL 
and ORGANIZATION SE- 
QUENTIAL APPLY RE- 
STRICTED SEARCH 
applies only to disc files 
with ACCESS RANDOM 
and ORGANIZATION 
DIRECT. 


The listed file-name ap- 
pears in multiple RERUN 


entries as the RERUN 
controller, 


Only the first 8 characters 
of the external-name are 
meaningful. 


The FILE-CONTROL 
header must precede the 
first SELECT entry, the 
SPECIAL-NAMES header 
must precede the first 
special-name, and the I- 
O-CONTROL header must 
precede the first RERUN, 
SAME, APPLY, or 
MULTIPLE FILE entry. 


See Appendix D. 


A given file may control 
no more than one RERUN 
receiver, 


EXPLANATION 


The excess characters 
in the external-name are 
deleted. 


The header is assumed to 
have been encountered. 


The clause in error is 
deleted. Line number re- 
flects last statement in 
the SELECT clause. 


The RERUN entry is 
deleted, 
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NUVcen DIAGNOSTIC TEXT 
U INVALID SPECIFICATION 


OF RERUN RECEIVER 
EXTERNAL-NAME 


ADDITIONAL MEMORY 
REQUIRED FOR SELECT 
PROCESSING. 


DUPLICATE CLAUSE OR 
HEADER. 


HEADER OUT OF SE- 
QUENCE. 


CLAUSE APPLIES ONLY 
TO RANDOM ACCESS 
FILES. 


EXPLANATION 


The listed RERUN receiver 
is not a tape or disc. 


The compiler does not have 
sufficient internal storage 
to process all of the 
SELECT entries, 


A clause such as ACTUAL 
or a header such as 
AUTHOR has been multiply 
specified. 


The header on the indicated 
line number is out of se- 
quence. 


The clause or entry at the 
indicated line number 
applies only to random 
access files. 


RERUN receivers must be 
assigned to a tape or disc. 


Each SELECT entry re- 
quires 26 bytes of storage 
plus 1 byte for each char- 
acter in the file-name. To 
increase the number of 
SELECTS that can be proc- 
essed, recompile using 
smaller file-names or with 
more storage assigned to 
the compiler. 


All clauses must be 
unique within their as- 
sociated entries. All 
headers must be unique. 


The order of headers must 
be as defined. 


VERIFY, RANDOM, 
RESTRICTED, ORGANI- 
ZATION, ACTUAL, SYM- 
BOLIC, RELATIVE, or 
MULTIPLE apply only to 
random access files. 


The RERUN entry is de- 
leted, 


This SELECT entry and 
all others that follow are 
deleted. 


The duplicate clause or 
header is deleted. 


The header is deleted. 


The clause or entry is 
deleted. 
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MESSAGE | SEVERITY 
NUMBER CODE 


DIAGNOSTIC TEXT 


CLAUSE NOT APPLIC- 


ABLE FOR FILE-NAME. 


INVALID ACCESS-TYPE 
SPECIFICATION. 


( 


The clause or entry at the 
indicated line number is 
not applicable for the 
listed file-name. 


An invalid combination 
of ACCESS, ORGANIZA- 
TION, and KEY clauses 
has been specified. 


( 


EXPLANATION 


The following clauses or 
entries are not applicable 
for the indicated devices: 


The clause or entry is 
deleted. 


BLOCK-COUNT ~— CARD 
READER, CARD- 
PUNCH, PRINTER, 
RANDOM ACCESS 
DEVICE. 

MULTIPLE — CARD- 
READER, CARD- 
PUNCH, PRINTER. 

OPTIONAL — CARD- 
PUNCH, PRINTER. 


The file is classified as 
ACCESS SEQUENTIAL, 
ORGANIZATION SE- 
QUENTIAL. 


The combinations of 
ACCESS, ORGANIZA- 
TION and KEY clauses 
are invalid: See Appen- 
dix D, Table D-1. 
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MESSAGE | SEVERITY DIAGNOSTIC TEXT 


NUMBER 


037 


038 


039 


CODE 


Cc COPY STATEMENT RE- 


QUIRES PERIOD. 






Cc LABEL RECORDS CLAUSE 
OMITTED FROM FILE- 
NAME. 

U MISSING PROCEDURE 






DIVISION HEADER. 










EXPLANATION 


A period is assumed to 
have been present. 
















A period must follow the 
library name of a COPY 
statement. 


Something other than a 

period was found following 
the library name of a COPY 
statement. 















A LABEL RECORDS clause The LABEL RECORDS LABEL RECORDS OMIT- 
has not been specified for clause is required for all TED is assumed. 
the listed file-name. files. 



























All four division headers 
must appear in every pro- 
gram and conform to the 
following order: IDENTI- 
FICATION, ENVIRON- 
MENT, DATA, PRO- 
CEDURE. 


If Procedure Division 
statements exist, they are 
deleted. 


The end of the source pro- 
gram has been reached 
without detecting the 
PROCEDURE DIVISION 
header, 
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MESSAGE| SEVERITY 
NUMBER} CODE 
040 Cc 


DIAGNOSTIC TEXT 


LITERAL NOT A VALID 
LEVEL NUMBER. 





CLAUSE CLAUSE IN- 
VALID WITH ASSOCIATED 
LEVEL NUMBER. 


erroneous because of its 
value or use. 


The listed clause is not 


allowed with the specified 


level number. 


EXPLANATION 


The listed level number is (1) Level number values 


are restricted to 01 
through 49, 66, 77, or 
88. 


(2) The level number of 


the first data descrip- 
tion following an FD 
or SD must be 01. 


(3) A level number 77 may 


not be used within the 
File Section, 


(1) A REDEFINES clause 
may not be used with 
a level number 66, 77, 
88, or a 01 in the File 
Section. 


RECOVERY 


(1) If a level number other 


than 01 through 49, 66, 
77, or 88 is encountered; 
the level number is 
changed to 49 if the 
WORKING-STORAGE or 
LINKAGE SECTION 
header has not been en- 
countered; otherwise, 
the level number is 
changed to 01. 

(2) If the first data des- 
criptor in a record is 
not 01, a Ol filler is 
created by the com- 
piler to precede the 
current data description. 

(3) The level number is 
changed to 01. 





In rules 1 through 5, the 
clause is deleted. For 
rule 7 the first value is 
accepted; all others are 
deleted. 


; rey 


AJONINAAAY AUVINAWATddns 


(2) A PICTURE clause 
may not be used with a 
level number 66 or 88. 

(3) The MAP clause is not 
allowed with level 
number 66 or 88. 

(4) Multiple values can 
only appear with a 
level number 88. 

(5) Tne OCCURS clause is 
not permitted with a 
lével number 01, 66, 77, 
or 88. 


(6) A RENAMES clause can 


only be used with a 
level 66. 
(7) The value clause can- 


not be used with a level 


number 66. 
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MESSAGE 
NUMBER 


042 


SEVERITY 
CODE 


Cc 


DIAGNOSTIC TEXT 


REDEFINES MUST BE 
FIRST CLAUSE. 


CLAUSE NOT SUP- 
PORTED BY UNIVAC- 
9400 COBOL. 


LEVEL NUMBER 01/77 
MUST BE IN AREA-A. 


COPY STATEMENT RE- 
QUIRES LIBRARY NAME, 
(CHAR. STRING) 
INVALID. 


OCCURS CLAUSE 
INTEGER INVALID. 


The REDEFINES clause 
was not the first clause 
in the data description. 


An obsolete COBOL 
clause has been en 
countered. 


The level number Q1 or 
77 did not begin in area 
A. 


A COPY verb was not 


followed by a library name. 


An OCCURS clause 
integer is zero or greater 
than 65,535. (In Format 2 
of the OCCURS clause, 
integer-1 may be zero). 


The REDEFINES clause 
must immediately follow 
the name of the data 
description. 


The SIZE clause is not 
within the 9400 COBOL 
language, 


All 01 or 77 level num- 
bers must start in area 
A. 


A library name: 

(1) is composed of no 
more than 8 characters 
of the set A through 
Z, 0 through 9, and 
the hyphen (-). 

(2) has at least one al-- 
phabet character. 
(3) does not have a hy- 
phen as the first or 

last character. 

(4) is not a COBOL re- 
served word. 


The minimum OCCURS 
value is 1. The maximum 
OCCURS value is 
65,535. 


EXPLANATION 


The REDEFINES clause 
is accepted. 


The SIZE clause is 
deleted. 


The level number is 
accepted. 


The first 8 characters 
of the string provided 
are used as a library 
name. 


If zero is used in Format 1 
or as integer-2 in Format 2, 
the OCCURS clause is 
ignored. If an integer ex- 
ceeds 65,535 the integer 

is assumed to be 1. 
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DIAGNOSTIC TEXT 


LIBRARY NAME 
(CHARACTER STRING) 
EXCEEDS EIGHT 
CHARACTERS. 


REMAINDER OF THE 
LINE FOLLOWING COPY 
STATEMENT MUST BE 
BLANK. 


DATA-NAME, FILE-NAME 
OR LEVEL NUMBER IN 
AREA-A 


APPLY CLAUSE OR 
SEGMENT-LIMIT INTEGER 
INVALID. 


APPLY CLAUSE INTEGER 
INVALID. 


The library name following 
the COPY verb was found 
to be longer than 8 charac- 
ters. 


A nonblank character was 
found in the remainder of 
the line on which the COPY 
statement appears. 


The name or number as- 
signed to the file or data 


description begins in area A. 


Cylinder overflow percent 
was specified as being 
greater than 90% for 8414 
disc or greater than 80% 
for 8411 disc, the buffer 
offset value is not from 1 
to 99, or the SEGMENT- 
LIMIT value is not from 

1 to 49. 


A BLOCK CONTAINS 
RECORDS clause has 


been specified with a 


recording mode of U. 
Buffer offset value 
exceeds 99. 


EXPLANATION 


The name of a library 
structure may be a maximum 
of 8 characters long. 


Since the COPY statement 
directs the compiler to 
access new lines of 
COBOL code, nothing may 
follow the COPY statement 
on the same line. 


File-names, data-names, 
level number and filler 
must not begin in area A. 


Cylinder overflow percent 
may not be greater than 
90% for 8414 disc or 
greater than 80% for 8411 
disc. 


Recording mode U states 
that records of the file 
are not blocked and may 
vary in length. 


The first 8 characters of 
the name provided are 
used. 


The remainder of the line 
is deleted. 


The name or level number 
is accepted. 


The overflow percent is 
set to 80 or 90 percent 
according to the type of 
disc, the buffer offset 
is set at 99, or the 
SEGMENT-LIMIT is 
set at 49. 


The block contains clause 
is deleted. The recording 
mode U is accepted or the 
buffer offset value is set 


to 99. 
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MESSAGE | SEVERITY DIAGNOSTIC TEXT 
NUMBER | CODE 


052 CLAUSE NOT ASSOCI- 
ATED WITH FD OR 
DATA-NAME. 


NO DATA ENTRY FOR 
PREVIOUS FD OR SD. 


FD OR SD NOT IN FILE 
SECTION. 


LEVEL NUMBER NUMBER 
ENCOUNTERED PRIOR 
TO SECTION HEADER, 


A clause, such as DATA 
RECORDS or PICTURE, 
is not associated with the 
previously completed file 
or data descriptor. 


The previous FD or SD 
does not have at least one 
record description asso- 
ciated with it. 


An FD or SD has been de- 
tected outside the File 
Section. 


A data descriptor has been 
encountered prior to de- 
tection of a DATA 
DIVISION header. 


Clauses associated with 
file or data descriptions 
must appear within the 
entry, @.g., prior to the 
period that terminates the 
entry. 


A record description, with 
level number 01, must fol- 
low every FD or SD de- 
scription, 


Every file or sort de- 
scription must be within 
the File Section. 


If a data descriptor is the 
first entry in the Data 
Division, it must be pre- 
ceded by a WORKING- 
STORAGE or LINKAGE 
SECTION header. 


EXPLANATION 


The clause is deleted. 


The compiler creates a 
record description whose 
name is filler. The size 

of this record is set to the 
number of bytes specified 
in the RECORD CONTAINS 
CHARACTERS clause, if 
the clause was detected; 
otherwise, the size is set 
to 30 bytes. 


The file or sort description 
is deleted. Any record 
descriptions following the 
FD or SD are accepted. 
They are allocated to 
either the Working-Storage 
or Linkage Section, de- 
pending on which header 
was last encountered. 


The compiler assumes the 
WORKING-STORAGE 
SECTION header has been 
encountered and allocates 
the data item to that 
section. 
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MESSAGE 
NUMBER 





F 


x 
SEVERITY 
CODE 


DIAGNOSTIC TEXT 





LANGUAGE ELEMENT 
NOT IMPLEMENTED. 


DATA ENTRY REQUIRES 
RENAMES OR VALUE 
CLAUSE. 


LEVEL 88 CONDITION- 
NAME NOT PRECEDED 
BY DATA ENTRY. 


( 


\ 
EXPLANATION 
RULE RECOVERY 


A COBOL language feature 
not supported in the basic 


compiler has been en- 
countered. 


A data descriptor with level 
number 66 has no RENAMES 
clause or a data descriptor 
with a level number of 88 
has no VALUE clause, 


The level 88 entry is the 
first entry in the Data 
Division. 


( 


The clause, entry, or 
statement is deleted. 


The following language 
elements are not available 
with the basic compiler: 
SYSERR, RANDOM, OR- 
GANIZATION, VERIFY, 
MASTER-INDEX, CYLIN- 
DER-INDEX, CYLINDER- 
OVERFLOW, EXTENDED- 
INSERTION, FILE- 
PREPARATION, KEYS, 
MULTIPLE, VALUE, CON- 
DITION-NAMES, SD, COM- 
PUTE, INSERT, SORT, 
RETURN, RELEASE, 
PERFORM FORMAT 3 
AND 4, AND, OR, COR- 
RESPONDING, ARITH- 
METIC EXPRESSIONS. 
The following language 
elements are not available 
in either compiler: 

I-O, CALL, entry with- 

in USE procedure 


A data descriptor whose 


The data description is 
deleted. 


level number is 66 must 
have a RENAMES clause, 
and a data descriptor whose 
level number is 88 must 
have a VALUE clause. 


See rules for CONDITION- 
NAME. 


The compiler creates a 
level 01 named FILLER, 
length 1, signed for the 
conditional variable. 
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MESSAGE 
NUMBER 


SEVERITY 
CODE 


DIAGNOSTIC TEXT 


LEVEL 66 DATA-NAME 
MUST APPEAR ONLY AT 
END OF HIERARCHY. 


OCCURS DEPENDING 
CONFLICT ASSO- 
CIATED WITH 
DATA-NAME 


LEVEL NUMBER 
LITERAL IS NOT SUB- 
ORDINATE TO AN Ol. 


USAGE IS INDEX IS IN- 
VALID FOR DATA-NAME 
WITH CLAUSE CLAUSE. 


DATA-NAME DESCRIBED 
AS TYPE ITEM HAS TYPE 
INITIAL VALUE. 


PICTURE INVALID FOR 
GROUP ITEM DATA- 
NAME. 


EXPLANATION 


The level 66 entry was 
not followed by one of the 
following: 
an FD or SD entry, a level 
77 entry, a level 66 entry, 
or a PROCEDURE 
DIVISION header. 


The data-name with the 
DEPENDING option of 
the OCCURS clause is 
not the last group entry 
in an 01 hierarchy or 
the data-name is sub- 
ordinate to another 
OCCURS clause. 


A data entry with a level 
between 02 and 49 follows 
a level 77 or DATA 
DIVISION header. 


An additional clause was 
specified for a data entry 
with USAGE IS INDEX 
clause specified. 


A class error between a 
data entry and the value 
specified for this entry 
was detected. 


The data entry was de- 
termined to be a group 
item from level number 
structure and a PICTURE 
Clause conflicts with a 
group entry. 


a level 01 entry, 


See rules for RENAMES., 


See rules for OCCURS 
clause with the 
DEPENDING option. 


See rules for level number. 


See rules for USAGE. 


See rules for VALUE IS. 


See rules for PICTURE. 


A level 01 named FILLER 
is created to follow the 
level 66 entry. 


The DEPENDING option 
of the OCCURS clause 
is ignored, (maximum 
number of occurrences 
is assumed). 


A level 01 named FILLER 
is created to precede the 
data entry. 


Compiler deletes USAGE 
IS INDEX clause specified 
for this data entry. 


The compiler deletes the 
value specified for this 
data entry. 


The compiler deletes the 
PICTURE clause on the 
group item. 
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MESSAGE | SEVERITY 
NUMBER CODE 





DIAGNOSTIC TEXT 






DATA-NAME DESCRIBED 
AS TYPE, CLAUSE 
INVALID. 


INITIAL VALUE INVALID, 
FOR DATA-NAME, IN 
FILE OR LINKAGE SEC- 
TION. 


INITIAL VALUE INVALID 
FOR DATA-NAME SUB 
ORDINATE TO REDE- 
FINES OR OCCURS. 


DATA-NAME USAGE 
COMP-3 FROM PICTURE 
CONFLICT WITH USAGE 
TYPE CLAUSE. 


SAME SORT OR SAME 
RECORD AREA 
CONFLICTS WITH 
SAME AREA CLAUSE. 


OCCURS CLAUSE IN- 
VALID FOR DATA- 
NAME, A LEVEL # 
ENTRY. 


( 


REASON 


Conflict between descrip- 
tion clauses of the data 
entry, i.e., data-name 
described as NUMERIC, 
JUSTIFIED invalid. 


A value clause, not ona 
CONDITION NAME entry, 
was noted for an entry in 
the File or Linkage Sec- 
tions of the Data Division. 


A VALUE clause, ona 
data entry which was 
subordinate to either a 
REDEFINES, OCCURS, 
or VALUE clause, was 
found. 


A data entry with an H in 
the PICTURE (implying 
COMP-3) and a conflicting 
USAGE clause were noted. 


Not all files in the 
SAME AREA clause 
appear in the SAME 
SORT AREA clause 
or SAME RECORD 
AREA clause. 


An OCCURS clause was 
noted on a data entry 
with a level number of 01 
or 77. 





EXPLANATION 
RULE RECOVERY 


See Section 5 for rules 
for clauses in conflict. 


See rules for VALUE IS. 


See rules for VALUE IS. 


See rules for PICTURE 
and USAGE. 


See rules for SAME 
AREA clause. 


See rules for OCCURS. 





f 


( 






60242-dn 


The clause listed as 
invalid is deleted. 


The compiler deietes the 
VALUE clause on the 
data entry. 






The compiler deletes the 
VALUE clause on the 
data entry. 
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The compiler assumes 
COMP-3 as valid and 
deletes the other 
USAGE clause. 


The file is processed as 
though it had appeared 
in the SAME RECORD 
or SAME SORT AREA 


clause. 


f xtpueddy 


The compiler deletes the 
OCCURS clause. 


MESSAGE | SEVERITY 
NUMBER CODE 


071 


ames 


DIAGNOSTIC TE XT 


FILLER INVALID FOR 
TYPE ENTRY. 


DATA-NAME CONTAINS 
BOTH A REDEFINES AND 
OCCURS CLAUSES. 


ONE LEVEL NUMBER 
ALLOWED PER LINE. 


USAGE OF DATA-NAME 
CONFLICTS WITH 
USAGE OF GROUP. 


THE OCCURS CLAUSE 
ON DATA-NAME IN- 
VALID, 4 DIMENSION 
TABLE DESCRIBED. 


FILE FILE-NAME HAS 
NO DATA RECORD. 


Data-name FILLER was 
on a data entry with a 
level of 66, 88, ora 
group item. 


A data entry was noted 
with both a REDEFINES 
clause and an OCCURS 
clause, i.e., each oc- 
currence will redefine 
the area (not a table). 


More than one level 
number appears on 
the indicated line 
number. 


A data entry usage con- 
flicts with the usage of 
one or more of the group 
entries which this data 
entry is subordinate to 
or usage conflicts with a 
value on a group level. 


A data entry with an 
OCCURS clause which 
would cause more than 
three levels of sub- 
Scripting was encountered. 


A level 01 data record 
was not encountered for 
this file. 


EXPLANATION 


See rules for level num- 
ber and data-name 
FILLER. 


See rules for OCCURS. 


See formats of the 
DATA DIVISION. 


See rules for USAGE 
and VALUE IS. 


See rules for OCCURS. 


Format violated, see 
FILE SECTION. 

NOTE: There must bea 
data record description 
for each file. 


The compiler assumes 
a level of 01. 


The compiler deletes 
the OCCURS clause 
on the data entry. 


The level number is 
processed as though it 
were on a unique line 
number. 


Compiler assumes en- 
tries usage aS proper 
usage. 


The compiler deletes 
the OCCURS clause 
on the data entry. 


No action is taken by 
the compiler. 





Z ‘Aaa 
60ZZ-dn 


JONAYTARY AYVLNAWATdd NS 





10905 0076 DVAINN 


{ xtpueddy 


MESSAGE 
NUMBER 


077 


SEVERITY DIAGNOSTIC TEXT 
CODE 


BLOCK-LENGTH-CHECK 
INVALID WITH 
RECORDING MODE. 


ADDITIONAL MEMORY RE- 
QUIRED FOR LABEL RE- 
CORD PROCESSING. 


BLOCKING CONFLICTS 
WITH ORGANIZATION ON 
FILE FILE-NAME. 


FILE-NAME FILE-NAME 
DOES NOT APPEAR IN A 
SELECT. 


EXPLANATION 


Block-length-check is 
not allowed with all 
recording modes. 


Block-length-check is 
appropriate with 


There is not enough memory 
available for holding of all 
the label name definitions 
for this file. 


A file with organization 
direct or relative with a 
blocking factor was en- 
countered (blocking from 
BLOCK CONTAINS clause). 


See rules for FILE- 
CONTROL 


A file which does not have 
a SELECT entry (matched 
by file-name) was en- 
countered. 


recording mode V or D. 


The block-length-check 
is disregarded. 


Compiler assumes label 
name definitions that will 
not fit, do not exist.Memory 
is required to hold the 
SELECTS and label name 
definitions. To allow pro- 
cessing of more label 
names, allocate more memory 
shorten the size of the 
SELECTS, or define fewer 
label names. 


The compiler deletes the 
BLOCK CONTAINS clause. 


Compiler assumes a SELECT 
entry defined with file- name 
(of file) assigned to tape-6. 
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MESSAGE 
NUMBER 


SEVERITY 
CODE 


DIAGNOSTIC TEXT 


INVALID RECORDING 
MODE FOR FILE 
FILE-NAME 


80 CHARACTER BLOCK 
LIMIT EXCEEDED BY 
CARD FILE FILE-NAME. 


BLOCK CONTAINS EX- 
CEEDS 1 RECORD ON 


‘CARD-READER FILE FILE- 
NAME. 


FILE FILE-NAME MUST 
HAVE LABEL RECORDS 
OMITTED. 


BLOCK SIZE SPECIFIED 
FOR FILE FILE-NAME 
EXCEEDS MAXIMUM. 


(1) A file assigned to card 


reader and recording mode 


was V or U. 

(2) File assigned to DISC- 
8411, DISC-8414 with 
ORGANIZATION REL- 
ATIVE or INDEXED and 
RECORDING MODE was 
Vor O. 

(3) File assigned to DISC- 
8411, DISC-8414 with 
ORGANIZATION 
DIRECT and RECORD- 
ING MODE was V. 


A BLOCK CONTAINS 
clause exceeds the maximum 
for a card device. 


A file assigned to a card 
device with BLOCK CON- 
TAINS 2 or more records 
specified was encountered. 


A file assigned to a unit 
record device with other 
than LABEL RECORDS 
OMITTED was encountered. 


BLOCK CONTAINS clause 
contains value which ex- 
ceeds maximum length for 
the device the file is as- 
signed to. 


EXPLANATION 


Device restriction (card 
reader) access method 
restriction (DISC, DISC- 
8414) 


See rules for BLOCK 
CONTAINS. 


Device restriction 


Data management restriction. 


See BLOCK CONTAINS. 


‘Compiler assumes recording 
mode F for this file. 


The compiler assumes the 
maximum size (80) for 
BLOCK CONTAINS. 


Compiler assumes BLOCK 
CONTAINS 1 record. 


Compiler assumes labels to 
be omitted. 


The compiler assumes that 
the maximum length was 
specified. 
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EXPLANATION 


A BLOCK CONTAINS 
clause value was encountered 
which is less than the 
minimum allowed for the 
device. 


MESSAGE | SEVERITY 
NUMBER CODE DIAGNOSTIC TEXT 


086 BLOCK SIZE SPECIFIED 
FOR FILE FILE-NAME 
LESS THAN MINIMUM. 


The compiler assumes the See BLOCK CONTAINS. 
minimum length for the 


BLOCK CONTAINS clause. 


Z “AON 
60LL-dN 


DESCRIPTION FOR 
LABEL RECORD LABEL 
NAME NOT ENCOUN- 
TERED. 


FILE FILE-NAME MUST 
HAVE LABEL RECORDS 
STANDARD OR DATA 
NAME. 


FILE FILE-NAME MUST 
HAVE LABEL RECORDS 
STANDARD. 


FILE FILE-NAME, BLOCK 
CONTAINS CHARACTERS 
CLAUSE NOT ALLOWED. 


A label name (from LABEL 
RECORDS ARE clause) 
with no 01 label descrip- 
tion was encountered. 


filename is assigned to 
direct access device 
(DISC, DISC-8414) and 
the LABEL RECORDS 
clause specified omitted. 


filename is assigned to a 
direct access device 
(DISC, DISC-8414) and has 
organization indexed, and 
LABEL RECORDS ARE 
OMITTED or data name is 
specified. 


File assigned to direct 
access device (DISC, 
DISC-8414) with ORGANI- 
ZATION INDEXED and 
BLOCK CONTAINS 
CHARACTERS was en- 
countered, 


See rules for label 
records. 


File assigned to disc 
must have a LABEL 


RECORDS specification. 


File with organization 
indexed must have 
LABEL RECORDS 
STANDARD. 


File with organization 
must have BLOCK CON- 
TAINS RECORDS or no 
BLOCK CONTAINS 
clause, 


The compiler assumes 
that the label name does 
not exist. 


Compiler assumes LABEL 
RECORDS ARE STANDARD 
for the file. 


Compiler assumes label 
records to be standard 
for the file. 


Compiler assumes there 
was no BLOCK CON- 
TAINS clause specified. 
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The character-string 
listed as invalid has 
produced a syntax error. 
The required type of 
character-string is 
indicated. 


COPY SYNTAX 
REQUIRES. = 

CHARACTER-STRING 
INVALID. 

















The internal storage area 
used to save REPLACING 
items has been exhausted 
or the number of qualifiers 
associated with an identi- 


REPLACING AREA 
OVERFLOW CAUSED BY 
CHARACTER-STRING. 


fier has exceeded internal 
storage area. 









CHARACTER NUMBER 
LITERAL IS INVALID 
IN TYPE PICTURE 

PICTURE-STRING. 


An illegal PICTURE 
character, a PICTURE 
character inconsistent 
with the PICTURE type, 
or a violation of the PIC- 
TURE precedence rules 
has been detected. 








THE TYPE PICTURE 
PICTURE-STRING IS 
INCOMPLETE. 







As stated, the picture is 
incomplete and cannot be 
processed, e.g., SPPPP. 









CHARACTER NUMBER 
LITERAL IS INVALID IN 
PICTURE PICTURE- 

STRING. 


An illegal PICTURE 
character, a PICTURE 
character inconsistent 
with the PICTURE type, 
or a violation of the PIC- 
TURE precedence rules 
has been detected. 








SIZE LIMIT OF LITERAL 
BYTES EXCEEDED BY 
PICTURE PICTURE- 
STRING. 









The PICTURE specifies 
more Storage than the 
maximum allowed for the 
PICTURE type. 


EXPLANATION 
RULE RECOVERY 



































See 6.7.7 for COPY rules. The item in error and all 
items which follow it in 
the COPY clause are 


deleted. 






















The compiler ignores the 
balance of the clause 
which causes overflow. 
Recompile with addi- 


Compiler Restriction 










tional memory allocated 
to the compiler or reduce 
the number of items, 
amount of qualification, 
or size of names in the 
REPLACING clause. 



















In order not to delete the 
data descriptor, the com- 
piler sets its PICTURE 
to $9. 


See Section 5 for the 
allowable PICTURE 
symbols and the rules 
for their usage. 

























See Section 5 for the In order not to delete the 
allowable PICTURE 
symbols and the rules for 


their use. 







data descriptor, the com- 
piler sets its PICTURE 
to S9. 
The PICTURE characters 
prior to the character in 




















See Section 5 for the 
allowable PICTURE 
symbols and the rules for 
‘their usage. 






error are accepted. 




















In order not to delete the 
data descriptor, the com- 
piler sets its PICTURE 

to S9, 


The maximum size in 
bytes of numeric PICTURE 
is 18, alphabetic or alpha- 
numeric is 4092, numeric 
edited or alphanumeric 
edited is 132. 
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MESSAGE | SEVERITY 
NUMBER CODE 


DIAGNOSTIC TEXT 


THE NUMBER OF DIGIT 
POSITIONS IN PICTURE 
PICTURE-STRING EX- 
CEEDS 18. 


A VALUE CONTAINED 
WITHIN PARENTHESES IS 
=0 OR >4092 IN PICTURE 
PICTURE-STRING. 


A NUMBER DOES NOT 
FOLLOW A LEFT PAREN- 
THESIS IN PICTURE 
PICTURE-STRING. 


RIGHT PARENTHESIS 
MISSING FROM PICTURE 
PICTURE-STRING. 


BOTH LEADING AND 
TRAILING SIGN INSER- 
TION SPECIFIED IN 
PICTURE PICTURE- 
STRING. 


REASON 


The number of digit posi- 
tions in the PICTURE ex- 
ceeds 18. 


A value contained within 
parentheses is either zero 
or greater than 4092. 


A left parenthesis within 
the PICTURE is not fol- 
lowed by a numeric 
integer. 


A right parenthesis does 
not follow a numeric in- 
teger preceded by a left 
parenthesis. 


Two insertion sign charac- 
ters have been encountered 
in the numeric edited 
PICTURE. 


EXPLANATION 


RULE 


The maximum number of 
digits allowed in a numeric 
or numeric edited PICTURE 
is 18. 


The number of times a 
PICTURE character is 
repeated, as specified by 
the value in parentheses 
following it, must be 
greater than zero and less 
than 4093. 


Within parentheses, a 
numeric integer is used 
to specify the number of 
times the preceding PIC- 
TURE character is re- 
peated. 


Each left parenthesis ina . 
PICTURE must be followed : 
by a numeric integer and 

a right parenthesis. 


Specification of both lead- 
ing and trailing sign in- 
sertion is not permitted. 


RECOVERY 


In order not to delete the 
data descriptor, the com- 
piler sets the PICTURE 
to S9. 


The value within the 
parentheses is set to l 
and processing of the 
PICTURE continues. 


In order not to delete the 
data descriptor, the com- 
piler sets the PICTURE 
to S9. 


In order not to delete the 
data descriptor, the com- 
piler sets the PICTURE 
to S9. 


In order not to delete the 
data descriptor, the com- 
piler sets the PICTURE 
to S9. 
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EXPLANATION 


DIAGNOSTIC TEXT 


Z Aaa 
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MESSAGE} SEVERITY 
NUMBER CODE 


INITIAL VALUE TRUN- 


INVALID POSITIONING 
OF KEY DATA-NAME 
IN HIERARCHY. 


ADDITIONAL MEMORY 
REQUIRED TO PROCESS 
HIERARCHY CON- 
TAINING DATA-NAME. 


DATA-NAME EXCEEDS 
REDEFINES NESTING 
LIMIT. 


DATA-NAME WAS IM- 
PROPER REDEFINES OB- 
JECT DATA-NAME. 


The value specified for 
the data item contains a 


greater number of characters 


than the data item, or is a 
numeric value that, when 
the decimal point is 
aligned, is larger than the 
maximum value the data 
item can contain, 


There must not be any 
items with an OCCURS 
clause between the 
table item and its keys. 


There is not enough mem- 
ory available to contain 
all entries subordinate to 
the 01 data entry. There 
are too many entries for 
the 01 hierarchy for 
memory allocated. 


There are too many levels 
of redefinition. This data 
entry exceeds the limit of 
redefinition. 


The redefined area is a 
redefining area; i.e., the 
object of the REDEFINES 


clause has or is subordinate 


to a REDEFINES clause. 


The initial value cannot 
contain more characters 

then can fit into the data 
item. 


See rules for KEYS 
under OCCURS clause. 


See rules for REDEFINES. 


See rules for REDEFINES. 


The excess characters 
are truncated. 


The named KEY is 
processed as a regular 
data item, the KEY 
information is ignored. 


The compiler will not 
process the data entries 
which are not contained 

in memory. To compensate, 
shorten the hierarchy, 
shorten names in data 
entries, or assign more 
memory to compiler. 


The compiler assumes this 
entry does not have RE- 
DEFINES clause. 


The compiler assumes the 
redefinition of the last 
defined area with the 

same level as the subject 
of the REDEFINES clause. 
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EXPLANATION 


The compiler assumes 
the qualifier does not 
exist. 


DIAGNOSTIC TEXT 


MESSAGE} SEVERITY 
NUMBER CODE 






















There is insufficient 
memory available to con- 
tain the RENAMES quali- 
fier. This is due to a large 
hierarchy and/or a lot of 
RENAMES qualifiers. 


ADDITIONAL MEMORY 
REQUIRED TO PROCESS 
RENAMES QUALIFIER. 



























DESCRIPTION OF DATA- 
NAME NOT EN- 
COUNTERED. 


The compiler assumes 
the qualifier name in 


The definition of the entry See rules for qualification. 
is not in the current 


hierarchy. 







error does not exist. 




















See rules for level num- 
ber. 


RENAMES-OCCURS CON- 
FLICT BETWEEN DATA- 
NAME-1 and DATA-NAME- 
2. 







The object of the RE- 
NAMES clause on data- 
name-l has or is sub- 
ordinate to an OCCURS 
clause. 


The compiler assumes the 
last elementary item in 
the hierarchy is the ob- 
ject of the RENAMES 
clause, 


10903 0076 DJVAINN 
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REDEFINING AREA DATA See rules for REDEFINES. 
NAME UNEQUAL TO SIZE 


OF REDEFINED AREA. 







The calculated length of 
the redefined area is not 
the same as the length of 
the redefining area. 


The compiler assumes the 
largest length was cal- 
culated for both areas. 


























The compiler assumes the 
length to be 4092 for the 
elementary item. 


SIZE OF ELEMENTARY See data definition. 
ITEM DATA-NAME EX- 


CEEDS MAXIMUM OF 4092. 







An elementary item with a 
length larger than the maxi- 
mum was encountered, 

















The compiler assumes the 

length of the group item to 
be 65,535. The entire 

area Specified is, however, 
allocated. 


SIZE OF WORKING- See data definition. 
STORAGE GROUP ITEM 
DATA-NAME EXCEEDS 


MAXIMUM 65,535. 


A group entry in WORKING- 
STORAGE has a length 
calculated to exceed the 
maximum. 
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EXPLANATION 
MESSAGE| SEVERITY DIAGNOSTIC TEXT 
NUMBER | CODE REASON RULE RECOVERY 


SIZE OF NON-WORKING- The length of a file or See data definition. The compiler assumes the 
STORAGE GROUP ITEM LINKAGE SECTION group maximum of 4092 was the 
DATA-NAME EXCEEDS item was calculated to be calculated length of the 
MAXIMUM OF 4092. greater than the maximum. group item. 


INVALID LEVEL NUMBER A level number equal to The compiler assumes there 


STRUCTURE EN- the level of the data entry was a level number ona 
COUNTERED AT DATA- should have appeared in data entry directly sub- 
NAME. the hierarchy directly sub- ordinate to the O1, i.e., 


ordinate to the 01. O01 A 
LEVEL 02 MISSING 


05 B 

02 C 

INVALID LEVEL 
STRUCTURE 
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THE FIRST OBJECT OF The first object of a RE- See rules for RENAMES. The compiler assumes the 
LEVEL 66 ENTRY DATA- NAMES clause does not second object does not 
NAME ENDS AFTER THE precede the area of the exist. 


SECOND OBJECT. second object of the RE- 
NAMES clause. 


THE SECOND OBJECT OF The second object of a RE- See rules for RENAMES. The compiler assumes the 


objects are reversed. (The 


THE LEVEL 66 ENTRY NAMES clause does not 
first is the second and the 


DATA-NAME STARTS BE- precede the first object of 
FORE THE FIRST OBJECT] the RENAMES clause. second is the first.) 
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MESSAGE EXPLANATION 


U DIAGNOSTIC TEXT 


USAGE INDEX INVALID 
FOR CONDITIONAL 
VARIABLE DATA-NAME. 


RECORD DATA-NAME 

IS NOT SAME SIZE AS 
ALL PREVIOUS RECORDS 
IN A FIXED RECORDING 
MODE FILE. 


LABEL RECORD DATA- 
NAME SIZE NOT EQUAL 
80 CHARACTERS. 


BLOCK SIZE FOR FILE- 
NAME SMALLER THAN 
LARGEST RECORD. 


SIZE OF DATA-NAME 
GREATER THAN 
RECORD CONTAINS 
FOR FILE FILE-NAME. 


A condition name entry 

is defined for a data entry 
with a USAGE INDEX 
clause. 


A file described as F RE- 
CORDING MODE does not: 
have data records with the 
same length. 


A label record description 
with a length other than 80 
was encountered. 


The BLOCK CONTAINS 
CHARACTERS clause 
specifies a block length 
smaller than length of 
largest data record. 


The RECORD CONTAINS 
clause specifies a record 
length smaller than largest 
record. 


See rules for condition 
name. 


See rules for RECORDING 
MODE. 


9400 label specification 
has a length of 80 for 
labels. 


The compiler assumes 
alphanumeric usage for 
the conditional variable. 


The compiler assumes the 
largest data record length 
for calculation of record 
length for the file. 


The compiler assumes the 
length of label records to 
be 80. 


The compiler assumes the 
block length to be the 
length of the largest 
record, 


The compiler assumes that 
the largest hierarchy sub- 
ordinate to the FD, speci- 
fies the length of the 
largest data record for the 
file. 
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MESSAGE | SEVERITY 
NUMBER CODE 





DIAGNOSTIC TEXT 


FILE-NAME CLAUSE 
LENGTH CONDITION 
ALLOWED FOR DEVICE. 


RECORD CONTAINS 
CLAUSE FOR FILE 
FILE-NAME NOT EQUAL 
TO SIZE OF LARGEST 
RECORD. 


BLOCK LENGTH OF FILE 
FILE-NAME PROHIBITS 
RUN TIME SPECIFICA- 
TION OF BLOCK 
NUMBERING. 


REDEFINES NOT PER- 
MITTED FOR RECORDS 
IN FILE SECTION. 


SUBJECT OF REDEFINES 
DATA-NAME NOT IN SAME 
SECTION AS OBJECT OF 
REDEFINES. 





EXPLANATION 


The BLOCK CONTAINS 
clause or the RECORD 
CONTAINS clause exceeds 
maximum or is less than 
minimum for the device 
which the file is assigned 
to. 


See BLOCK CONTAINS 
and RECORD CON- 
TAINS. 


The RECORD CONTAINS 
clause does not specify 
the length of the largest 
data record. 


The length of the block for 
the file is too large to al- 
low block numbering. 


A File Section level 01 
with a REDEFINES clause 
was encountered. 


The subject of a REDE- 
FINES clause is not in 
same section as entry with 
REDEFINES. 


See rules for REDEFINES. 


See rules for REDEFINES. 


The compiler assumes the 
limiting length for the 
clause in error, 


The compiler assumes 
that the length of the 
largest data record is 
specified in the RECORD 
CONTAINS clause. 


No action. Precautionary 
warning. 


The compiler assumes the 
REDEFINES clause does 
not exist, 


The compiler assumes the 
REDEFINES clause does 
not exist. 
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DIAGNOSTIC TEXT 


OBJECT OF REDEFINES, 
DATA-NAME, WITHIN 
RANGE OF OCCURS. 


REDEFINES OBJECT 
DATA-NAME, AND SUB- 
JECT DATA-NAME DO 
NOT HAVE SAME LEVEL 
NUMBER. 


INDEX NAME DATA- 
NAME EXCEEDS COM- 
PILER LIMITS. 


ELEMENTARY ITEM 
DATA-NAME HAS NO 
LENGTH SPECIFIED. 


OBJECT OF RENAMES 
DATA-NAME NOT FOUND 
WITHIN HIERARCHY. 


The object of a REDE- 
FINES clause has or is 
subordinate to an OCCURS 
clause. 


The object and subjects 
of the REDEFINES clause 
do not have the same level 
numbers. 


The current compiler limit 
of index-names is 255. 
This entry is the 256 
specified index-name. 


An elementary item, de- 
termined from level number 
structure, with no length 
specified or assumed was 
encountered. 


The object of the RE- 

NAMES clause was not 
found in the immediate 
hierarchy. 


See rules for REDEFINES. 


See rules for RENAMES. 


oom, 


EXPLANATION 


See rules for RENAMES. 


The compiler assumes 
the REDEFINES clause 
does not exist. 


The compiler assumes 
the REDEFINES clause 
does not exist. 


The compiler starts index- 
name memory assignment 
over and reassigns the 
memory to the index-names 
being processed. 


The compiler assumes a 
length of 1, signed was 
specified, 


The compiler assumes the 
last elementary item of 
the heirarchy as the 
specified object of the 
RENAMES clause. 
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MESSAGE | SEVERITY 
NUMBER CODE 


DIAGNOSTIC TEXT 


OBJECT OF RENAMES 


DATA-NAME HAS ILLEGAL 


LEVEL NUMBER. 


REDEFINES CLAUSE IN 
DATA-NAME HAS INVALID 
OBJECT. 


ADDITIONAL MEMORY 
REQUIRED FOR PROCE- 
DURE NAME PROCESSING. 


The object of the RE- 
NAMES clause has illegal 
level number. 


The object of the REDE- 
FINES clause is not a 


legal level for redefinition. 


The compiler needs more 
memory in order to process 
the rest of the section and 
paragraph names. 


See rules for RENAMES. 


See rules for REDEFINES. 


Each procedure-name 
definition requires 16 
bytes of storage plus 1 
byte for each character in 
the name. To increase the 
number of procedure-names 
that can be processed, 
recompile using smaller 
names or with more stor- 
age assigned to the com- 
piler. 


EXPLANATION 


The compiler assumes the 
last elementary item 

as specified object of the 
RENAMES clause. 


The compiler assumes the 
REDEFINES clause does 
not exist. 


This procedure-name de- 
finition and all others 
that follow are deleted. 
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EXPLANATION ee 

MESSAGE} SEVERITY DIAGNOSTIC TEXT oe 
NUMBER | CODE RULE RECOVERY ” 


PRIORITY NUMBER IN- 
CORRECT OR OUT OF 
SEQUENCE. 


NEITHER EXIT PROGRAM 
NOR RETURN STATE- 
MENT ASSOCIATED WITH 
ENTRY OR USING STATE- 
MENT. 


NEITHER ENTRY NOR 
USING STATEMENT 
ASSOCIATED WITH EXIT 
PROGRAM OR RETURN 
STATEMENT. 


NO ENTRY OR RETURN 
STATEMENT ASSOCIATED 
WITH LINKAGE SECTION. 


Priority number value does 
not fall in range of 0 to 99 
or priority number >50 is 
not in ascending sequence. 


An entry point has been 
specified for this program 
but the program contains 
no mechanism to return to 
caller. 


Program contains mechan- 
ism to return to a calling 

program but no mechanism 
has been coded where the 
calling program may enter 
this program. 


No entry point has been 
specified for this sub- 
program. 


The priority number must 
be an integer ranging in 
value from 0 through 99, 
Segments with priority 
number 50-99 are inde- 
pendent segments and 
must appear in the source 
program in ascending 
numeric order, 


All COBOL subprograms 
must contain either an 
exit program or a RETURN 
statement. 


A COBOL program that 
is to be used as a sub- 
program must have an 
entry point. 


The use of the LINKAGE 
SECTION implies that 
this is a subprogram. Sub- 
programs must have entry 
and exit points. 


If segmentation has been 
specified (a previous seg- 
ment with priority number 
>50) the last valid priority 
number is assigned to this 
section. If segmentation 
has not been encountered, 
a priority number of 0 is 
assumed. 


No corrective action is 
possible for this error. If 
the program is executed 
as a Subprogram it will 
not return to the calling 
program, 


No corrective action is 
possible for this error. It 
is impossible to execute 
this program as a sub- 
program. 


No corrective action is 
taken, 
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MESSAGE 
NUMBER 


143 


145 


SEVERITY 
CODE 


DIAGNOSTIC TEXT 


STRUCTURE OF CON- 
DITIONAL SENTENCE 
INVALID, UNPAIRED 

ELSE ENCOUNTERED. 


PROCEDURE DIVISION 
DOES NOT CONTAIN A 
STOP RUN. 


EXIT WAS NOT THE ONLY 
STATEMENT IN PARA- 
GRAPH. 


THE BEFORE OPTION OF 
THE USE STATEMENT IS 
NOT APPLICABLE IN 
UNIVAC-9400 SYSTEM. 


THE PROGRAM NAME IN 
CALL STATEMENT EX- 
CEEDS EIGHT CHARAC- 
TERS. 


ELSE encountered in IF 
statement with no preceding 
IF verb to match it with. 


No STOP RUN statement 
is coded in this program. 
There is no way to bring 
this program to an orderly 
halt. 

EXIT statement is in 
paragraph which contains 
statements other than 
EXIT. 


The BEFORE option is not 
allowed in UNIVAC 9400 
System. 


Program name exceeds 8 
characters in length. 


EXPLANATION 


In a conditional statement 
any ELSE encountered is 
considered to apply to the 
immediately preceding if 

that has not been already 
paired with an ELSE. 


No rule has been violated; 
this diagnostic is strictly 
informative. 


The EXIT sentence must 
be preceded by a para- 
graph-name and be the 
only sentence in the para- 
graph. 


The BEFORE option is 
not applicable to the 
UNIVAC 9400 System, but 
is accepted for com- 
patibility. 


A maximum of 8 characters 
is allowed in subprogram 
names. 


The conditional statement 
is terminated at this 
point. 


Results during execution 
are unpredictable, 


Nothing is deleted from 
the program but the state- 
ments following the EXIT 
verb are never executed. 


The AFTER option is as- 
sumed. 


The program name in 
CALL statement truncated 
to 8 characters. 
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DIAGNOSTIC TEXT 


REFERENCE TO NAME 
CANNOT BE RESOLVED. 


QUALIFIED REFERENCE 
TO NAME CANNOT BE 
RESOLVED. 


REFERENCE TO PRO- 
CEDURE NAME IS 
AMBIGUOUS, DEFINITION 
AT LINE LITERAL USED. 


—, 


A definition of the listed 
name has not been en- 
countered. 


A definition of the listed 
name has not been en- 
countered under the speci- 
fied qualifiers. 


A definition of the listed 
paragraph-name has not 
been encountered within 
the section from which the 
reference is made, while 
multiple definitions exist 
outside the section of 
reference. 


Every name referenced 
must be defined. 


Every name referenced 
with qualification must 
be defined within the 
hierarchy associated 
with the highest level 
qualifier. 


A reference to a non- 
unique paragraph-name 
where all definitions are 
outside the section from 
which the reference is 
made must be qualified. 


EXPLANATION 


The statement containing 
the reference is deleted. 


The statement containing 
the reference is deleted. 


The reference is resolved 
by the paragraph-name at 
the listed line number. 
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MESSAGE| SEVERITY 
NUMBER CODE 


DIAGNOSTIC TEXT 


REFERENCE TO NAME 
OF NAME, CANNOT BE 
RESOLVED DUE TO DE- 
FINITION AT LINE 
LITERAL. 


Normally this diagnostic 
indicates that a definition 
for the qualifier in a pro- 
cedure reference has been 
encountered but is not a 
section-name. In the am- 
biguity mode of reference 
resolution (PARAM LST=A) 
this diagnostic is also 
generated when: 

(1) The highest qualifier 
of a data reference is 
not encountered in the 
Data Division but is 
encountered in the Pro- 
cedure Division, 

(2) The qualifier of a pro- 
cedure reference is not 
encountered in the Pro- 
cedure Division but is 
encountered in the Data 
Division. 

This emplies that when the 

definition that will resolve 

the reference is added to 
the source program, the 
highest possible qualifier 
rule is violated. 


EXPLANATION 


The statement containing 
the reference is deleted. 


The qualifier in a pro- 
cedure reference must 
refer to a section-name, 
Highest possible qualifiers 
(level indicator names, 
section-names, level 01 
and 77 names) must be 
unique in a program since 
a reference to the name 
cannot be qualified. 
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DIAGNOSTIC TEXT 


REFERENCE TO NAME 
AMBIGUOUS DUE TO DEFI- 
NITION AT LINE LITERAL, 
DEFINITION AT LINE 
LITERAL USED. 


IMPROPER DEFINITION 
OF NAME AT LINE 
LITERAL IMPLIED BY 
MANNER OF REFERENCE. 


This diagnostic is generated 
only in the ambiguity mode 
of reference resolution 
(PARAM LST=A) for an un- 
qualified reference when a 
duplicate definition of the 
listed name has been en- 
countered within the COBOL 
division implied by the 
reference type, e.g., GO TO 
implies Procedure Division; 
MOVE implies Data Divi- 
Sion. 


This diagnostic is generated 
only in the ambiguity mode 
of reference resolution 
(PARAM LST=A) for an un- 
qualified reference when a 
duplicate definition of the 
listed name has been en- 
countered in a COBOL 
division other than the 
division implied by the 
reference type and consti- 
tutes a violation of the 
highest possible qualifier 
rule. 


Every name in a COBOL 
program must be unique 
either because of different 
spelling or because of 
qualification. 


Highest possible qualifiers 
(level indicator names, 
section-names, level 01 
and 77 names) must be 
unique since a reference to 
the name cannot be quali- 
fied. 


EXPLANATION 
REASON RULE RECOVERY 


The reference is resolved 
by the name at the listed 
line number. 


If the reference cannot be 
resolved within the COBOL 
division corresponding to 
the reference type, the 
statement is deleted. 


SJINAYAIIY AYUVLNAWA1ddNs 
10905 0076 DVAINN 


{ xtpueddy 










MESSAGE | SEVERITY 


154 


155 


159 


160 


DIAGNOSTIC TEXT 


NAME MUST BE UNIQUE 
DUPLICATE DEFINITION 
FOUND AT LINE 
LITERAL. 







BEFORE OPTION NOT 
APPLICABLE IN 
C-MODE. 


U VERB STATEMENT CON- 
TAINS INVALID OPERAND 
DATA-NAME. 


VERB STATEMENT 
OPERAND DATA-NAME 
IS IMPROPERLY SUB- 

SCRIPTED. 































This diagnostic is generated 
only in the ambiguity mode 
of reference resolution 
(PARAM LST=A) for quali- 
fied references when a re- 
definition of the highest 
qualifier violates the highest 
possible qualifier rule. 








The WRITE BEFORE 
ADVANCING option is 

not available in the con- 
version mode. 








The specified data item 
does not satisfy the re- 
quirements for the designated 
verb, for example, an alpha- 
betic operand in an ADD 

statement. 











The data item contains 
too many, too few, or an 
improper type of subscript. 






















EXPLANATON 









If the reference cannot be 
resolved within the COBOL 
division corresponding to 
the reference type, the 
statement is deleted. 


Highest possible qualifiers 
(level indicator names, 
section-names, level 01 
and 77 names) must be 
unique since a reference 
to the name cannot be 
qualified. 



















Compatibility 
requirement. 


The BEFORE option is 
treated as though the 
AFTER option had been 
specified. 





The statement containing 
the listed operand is de- 
leted. 


See the general rules 
specified for the designated 
verb. 











The statement containing 
the subscript error is 
deleted. 


References to items ina 
table must have the correct 
number of subscripts or 
indexes, subscripts must 
be unsigned numeric in- 
tegers, subscripts and in- 
dexes must not be mixed in 
a single data reference, and 
references to items not in 

a table must not be sub- 
scripted. 
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MESSAGE | SEVERITY 


DIAGNOSTIC TEXT 


VERB STATEMENT CON- 
TAINS INCONSISTENT 
OPERAND DATA-NAME. 


VERB STATEMENT CON- 
TAINS SIGNED LITERAL 
LITERAL. 


COMPOSITE OF OPER- 
ANDS IN VERB STATE- 
MENT EXCEEDS 18 
DIGITS. 


GO TO PRECEDES IM- 
PERATIVE STATEMENT. 


VERB STATEMENT 
OPERAND DATA-NAME 
NOT DEFINED IN 
LINKAGE SECTION. 


The combination of oper- 
ands in the statement con- 
flict in their usage, for ex- 
ample, moving a numeric 
item to an alphabetic oper- 
and, 


A signed literal has been 
encountered, 


The superimposition of all 
operands to the left of the 
word giving exceeds 18 
digits. 


A GO TO statement is 
followed by other impera- 
tive statements. 


An operand not defined in 
the Linkage Section has 
been encountered in an 
Entry or Procedure Division 
USING statement. 


See the rules for the in- 
dicated verb statement. 


See the specific rules 
for the designated verb. 


See rules for composite 
of operands for the speci- 
fied verb. 


A GO TO statement must 
be the last statement in a 
series of imperative 
statements. In a condi- 
tional statement, a GO TO 
must be followed by ELSE, 
IF, or a period. 


Data-names in an entry 
ot Procedure Division 
USING statement must be 
defined in the Linkage 
Section. 


EXPLANATION 


The statement containing 
the inconsistent operand 
is deleted. 


The sign of the literal is 
deleted. 


The statement containing 
the composite error is 
deleted. 


The statements between 


the GO TO and the ELSE,. 


IF, or period are deleted. 


The statement containing 
the listed operand is de- 
leted. 
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MESSAGE 
NUMBER 


SEVERITY 
CODE 


DIAGNOSTIC TEXT 


VERB STATEMENT 
OPERAND DATA-NAME 
IS NOT LEVEL NUMBER 
01 OR 77. 


ADDITIONAL MEMORY 
REQUIRED TO PROCESS 
STATEMENT CONTAINING 
DATA-NAME. 


A operand with a level 
number other than 01 or 77, 
has been detected ina 
CALL, ENTRY, or Pro- 
cedure Division USING 
statement. 


This statement exceeds the 
internal storage area avail- 
able to process statements 
with multiple operands. 





EXPLANATION 


Z ‘Aay 
60Z2-dn 


The verb is deleted from 
further compilation. 


Data items in a CALL. 
ENTRY, or Procedure 
Division using statement 
are restricted to items 
whose level number is 01 
or 77. 


The statement is deleted. 
Additional memory should 
be assigned to the com- 


The storage necessary 
to process a Single 
operand varies from 

18 to 250 bytes, de- 
pending on the number 
of characters in the 
data-name and whether 
the item OCCURS, has an 
edited picture, or is 
subscripted. The max- 
imum storage available 
for statement processing 
is a function of the 
total storage available 
to the compiler. A limit 
of 100 symbols exists 
for a single condition. 
A symbol in this con- 
text is an operand, an 
arithmetic operator, a 
logical operator, a 
relational operator, or 
a class. (A condition- 
name test expands to 
multiple symbols de- 
pending on the number 
of values associated 
with the condition- 
name.) 


piler or the statement must 
be rewritten as multiple 
statements. 
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NUMBER CODE 




















DIAGNOSTIC TEXT 


VERB EXCEEDS LIMIT 
OF TEMPORARY DATA 
AREAS, 


VERB STATEMENT 
OPERAND NAME IS NOT 
RECORD OR FILE-NAME. 






SENTENCE PRODUCES 
EXCESSIVE OBJECT 
CODE 


VERB STATEMENT 
OPERAND NAME REFERS 
TO FILE RECORD AREA. 


VERB STATEMENT 
RECORD-NAME NAME IS 
NOT DEFINED IN FILE 
SECTION. 


DIVIDE STATEMENT 
PRODUCES MEANINGLESS 
RESULT. 













































Ber ey 






EXPLANATION 


The following verbs must 
refer to record or file-names: 
OPEN, CLOSE, READ, 
WRITE, SORT, RELEASE, 
RETURN, INSERT, SEEK. 


















Reduce the complexity of 
the expression or reduce 
the number of expressions 
in the statement. 


The maximum number of 
temporary arithmetic data 
areas has been exceeded. 







The statement in error is 
deleted. 


The input-output statement 
does not reference a 
record-name or file-name. 











Reduce the sentence size 








Object code cannot be 
produced for the entire 

sentence because of the 
sentence size. 


Generally, a complete 
sentence is limited to 
between 2048 and 4096 
bytes depending on the 
sentence structure. 






by rewriting it as several 
sentences/paragraphs. 
















Both operands in the The operand specified in The statement is deleted. 
the WRITE FROM, INSERT 
FROM, or READ INTO 


options, may not occupy 






statement refer to the same 
storage area. 


the same storage area aS 
the record or file-name. 












WRITE, INSERT, and 
RELEASE refer to items 
defined in the File Sec- 
tion. 


The listed operand is not The statement is deleted. 


defined in the File Section. 


























The DIVIDE statement is 
deleted. 


The description of the 
operands in a DIVIDE 
statement is such that only 
zeros could result for the 
quotient in the specified 
receiver. 
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EXPLANATION 























The statement in error 
is deleted. 


VERB STATEMENT CON- 
FLICTS WITH SEGMENTA- 
TION RULES. 


See the rules on segmen- 
tation for the listed verb. 


A branching verb is invalid- 
ly specified with respect to 
the rules of segmentation, 
or an ALTER statement re- 
fers to a paragraph that 


MESSAGE eee DIAGNOSTIC TEXT 
does not begin with a GO 


177 U 
TO. 
178 U VERB STATEMENT IN- An operand conflicts with See the rules for the The statement is deleted. 
COMPLETE OR CONTAINS a specified option or with specified verb. 
INVALID OPERAND OR another operand, or an op- 
OPTION. tion that must be specified 
for a given statement was 
not encountered. For ex- 
ample, a WRITE to a mass 
storage device must con- 
tain an INVALID KEY 
clause. 
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Requirements for internal 
labels may be lowered by 
reducing the number of 

statements in a sentence, 








INTERNAL LABEL 
TABLE OVERFLOW. 


Either a sentence requires 
more than 256 internal 
labels or more than 24 
internal labels are active. 















The nonnumeric literal 
is accepted. 


The class of all characters 
contained in a nonnumeric 
literal must be consistent 
with the class of the re- 
ceiving item. 










A nonnumeric literal con- 
taining numeric characters 
is being moved to an alpha- 
betic item, or a nonnumeric 
literal containing non- 
numeric characters is being 
moved to a numeric item. 


CLASS OF LITERAL CON- 
FLICTS WITH CLASS OF 
DATA-NAME. 
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DIAGNOSTIC TEXT 


NAME/LITERAL TRUN- 
CATED DURING MOVE. 


COMPLETE TRUNCATION 
OF NAME/LITERAL/ 
RESULT. 


REDUNDANT ROUND 
OPERAND DATA-NAME. 


REDUNDANT SIZE ERROR 
OPERAND DATA-NAME. 


The data-name or literal 
being moved contains a 
greater number of character 
positions than the receiver 
or, when decimal point 
aligned, contains a greater 
number of digit positions 
than the receiver. 


Decimal point alignment 
is such that no portion of 
the item being moved can 
be contained in the re- 
ceiving operand. 


The numeric description 
of the arithmetic result is 
such that no excess digit 
positions are available for 
rounding into the listed 
operand. 


The numeric description 
of the arithmetic result 
is such that its value 
could never exceed the 
largest value that can be 
contained in the listed 
operand, 


Truncation occurs when 
any portion of the item 
being moved cannot be 
contained in the receiving 
operand, 


Rounding is possible only 
when an arithmetic result 
contains at least one ex- 
cess digit from which the 
round operation can be 
based, 


A size error is possible 
only if the arithmetic re- 
sult contains more sig- 
nificant digit positions 
than the resultant identi- 
fier. 


EXPLANATION 


The data-name or literal 
is moved and truncated, 


The MOVE statement or 
arithmetic giving MOVE 
is deleted. 


The round operation is 
deleted. 


The size error test is 
performed. 
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DIAGNOSTIC TEXT 


PERFORM STATEMENT 
LITERAL EXCEEDS 
32,767. 


ADVANCING LITERAL 
EXCEEDS LIMIT. 


FILE AT LINE LITERAL 
NOT —____ WITHIN 
PROGRAM. 


The TIMES literal in the 


perform statement exceeds 


the maximum allowable 
value. 


The WRITE ADVANCING 
literal exceeds the maxi- 
mum allowable value. 


An OPEN or CLOSE has 
not been specified for 
the file or the OPEN is 
inconsistent with the 
activity associated with 
the file. 


EXPLANATION 


The maximum value of a 
PERFORM TIMES literal 
is 32,767. 


The maximum number of 
lines that can be ad- 
vanced is 127 in the 
normal mode and 3 in 
the conversion mode. 


Every file must be 
opened and closed. Files 
written on must be opened 
for output or I-O, files 
read from must be opened 
for input or I-O. 





The accepted TIMES 
count is the rightmost 15 
bits of the original value 


when converted to binary. 


This value is between 1 
and 32,767. 


The advancing line count 
is set to l. 


Results during execution 
are unpredictable. 
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MESSAGE 
NUMBER 


SEVERITY 
CODE 


DIAGNOSTIC TEXT 


ADDITIONAL MEMORY 
REQUIRED TO PRODUCE 
OBJECT CODE LISTING. 


ADDITIONAL MEMORY 
REQUIRED TO PRODUCE 
OBJECT PROGRAM. 


KEY SIZES FOR FILE AT 
LINE LITERAL NOT 
EQUAL. 


The compiler does not 
have sufficient storage to 
produce the object code 
listing. 


The compiler does not have 
sufficient storage to 
maintain the compile time 
tables necessary to create 
the object module output 
for this program. 


Record key size unequal 
to symbolic key size. 


Recompilation is necessary 
with more storage assigned 
to the compiler. 


Record key and symbolic 
key sizes must be equal. 


EXPLANATION 


The object module is 
produced, 


A recompilation is neces- 
sary with more storage 
assigned to the compiler. 


Symbolic key size is 
changed to record key 
size. 
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CONSOLE MESSAGES 


During compilation, the compiler generates messages for general information purposes 
and messages which describe nonstandard compilation, such as a compiler abort. 


During execution, COBOL-generated user programs may encounter one of several error 
conditions which are emphasized by console messages. 


For description and explanation of COBOL generated console messages, see UNIVAC 
9400 Operations Handbook — UP-7871 (current version) - 
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SUPPLEMENTARY REFERENCE 


SECTION: 


APPENDIX K. COMPILER LISTINGS 


SOURCE CODE LISTING 


A source code listing header line appears at the start of each source code listing. 
It identifies the compiler, the compiler version, the date of the compilation, and 

the time of day at which the COBOL program was compiled. If the date and time are 
to appear correctly in the source code listing header line, they must be set by the 
operator through the operator commands SET DATE and SET CLOCK when the 
supervisor is loaded. 


At the top of each page of the source code listing there is a page header which identifies 
the page number and sections of the COBOL source code listing which appear under the 
page header. These sections are the line number, sequence number, source statement, 
and identification. 


The line number (LINE NO.) is a compiler-generated number which identifies the 
particular line of COBOL source code with which it appears. The line number is 
used to reference lines of COBOL source code in the diagnostic listing, the object 
program listing, the Data Division memory map, the Procedure Division memory map, 
and the cross reference listing. 


If the COPY verb is used, the letter C appears after the compiler-generated line 
number, to indicate lines of source code taken from the copy library. 


The source item sequence number is listed under SEQ. (card columns 1 to 6). The 
sequence number field (card columns 1 to 6) is optional for the COBOL programmer. 


Under SOURCE STATEMENT the text (card columns 7 to 72) of the COBOL source 
program is listed. 


Under IDEN., program identification information (card columns 73 to 80) is listed. 
This is an optional entry made by the COBOL programmer to provide identification 
or card deck information. The COBOL compiler takes no action upon it. 
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K.2. DATA DIVISION STORAGE MAP AND CROSS REFERENCE LISTING 


The storage map header line contains the PROGRAM-ID name, the compiler version, oe 
and the date and time of compilation. 


The page header locates the following information: 


LINE 


LEVEL 


DATA-NAME 


REG 


DISP 


ADDR 


LENGTH 
TYPE 


PTLOC 


occ 


The compiler-generated line number on which the data item is defined. 


The level indicator or level number assigned to the item. An * indicates 
that the item was generated by the compiler, as with TALLY. 


The name of the item. 


Where applicable, the hardware register number which contains the 
address used as a base value for referencing the item. If a permanent 
register has not been dedicated to cover the item, an * is listed. 


The displacement of the item relative to the address contained in the 
item’s cover register. The number is expressed in hexadecimal. 


The address of the item, relative to the first byte of the program. If 
blank, the address varies due to blocking, double buffering, etc. The 
number is expressed in hexadecimal. 


The length in bytes of the item. 


The class or type of the item where: 


GP Group item 

A/N = Alphanumeric item 

A = Alphabetic item nae 
NUP = Numeric unpacked item 

IDN = index-data-name 

IDX = index-name 

AE = Alphabetic edited 

NE = Numeric edited 

NP = Numeric packed 

VGP 


Il 


Variable group item. 


The decimal point location of the item where: 


— integer indicates the number of fractional digit positions plus the 
number of leading P’s in the PICTURE, i.e., —5 for PIC PP999 or 
PIC 9.99999 or PIC 99V99999, 


+ integer indicates the number of trailing P’s in the PICTURE, i.e., 
+5 for PIC 99P(5) 


The number of occurrences of the item as specified by the OCCURS 
clause. 


If the cross reference list has been specified, the line numbers where one or more 
references to the item were made are listed under LINE NUMBERS OF REFERENCES. 
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Appendix K 


SECTION: 


K.3. PROCEDURE DIVISION STORAGE MAP AND CROSS REFERENCE LISTING 


K.4. 


The storage map header line will contain the PROGRAM-ID name, the compiler version, 
and the date and time of compilation. 


The page header locates the following information: 

LINE — The compiler-generated line number on which the item is defined. 
SECTION — If the item is a section-name, it is listed here. 

PARAGRAPH -— If the item is not a section-name, it is listed here. 

PRIORITY — The priority number of the section-name. 


ADDR — The address of the procedure, relative to the first byte of the program. 
If the name is not referenced in the program, NO REF is listed here. 
The number is expressed in hexadecimal. 


GO TO — An E indicates that the procedure is the object of a GO TO. 
PERFORM 


ENTRY — An E indicates that the procedure is the object of a PERFORM. 


EXIT — An X indicates that the procedure contains a PERFORM exit point. 
ALTER — An A indicates that the procedure is ALTERed. 
SORT 


ENTRY — An E indicates that the procedure is the entry point of a SORT procedure. 
EXIT — An X indicates that the procedure contains a SORT procedure exit point. 


DEBUG — An * indicates that the procedure is the object of a debug packet. 


If the cross reference list has been specified, the line numbers where one or more 
references to the procedure have been made, are listed under LINE NUMBERS OF 
REFERENCES. 


OBJECT CODE LISTING AND EXTERNAL REFERENCES 


The object code listing header line contains the compiler version number and the 
date and time of the compilation. 


Following the report header line is a list of external reference symbols (EXTRN and 
ENTRY names). These are the symbols whose object time address cannot be calculated 
at compile time and must be resolved by the linker. The program name and segment 
names are also listed here so that their object time address can be determined by the 
linker. A two-character ESID number follows each name. This number is used as a 

link between the ESID associated with all address constants and the element base 

to which that address is relative. 


The following are compiler assigned names. 


DP$00000 DEB$GOO 

DP$00001 for DEB$G01 

DP $00002 DEPENDING Debug 
Procedures { Packets 


ETC ETC 
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The first entry in the list is the program name and its ESID number of 02. The program 
name is the PROGRAM-ID name. If the COBOL program is segmented, the segment 
names follow. The eight-character segment name is composed of the first six characters 
of the program-name and a two-character segment number, The segment number 01 will 
be assigned to the first section-name whose priority number exceeds 49; 02 to the next 
section with a different priority number greater than 49, etc. The ESID of the first 
segment is 03, the next is 04, etc. 


The next group of names identify various external programs required in the execution 
of the COBOL program, such as the Data Management modules and special COBOL 
object time subroutines. 


The last group of symbols are names that appear in CALL statements. 


The object code listing page header identifies the following information: 


LINE # — The compiler-generated line number on which each 
PROCEDURE DIVISION statement exists. 


BASE/DISPL — This field lists the hardware base register number used 
to contain the cover address for the line of code. The 
displacement from the address in the cover register to 
this line of code is also displayed. 


If this field is blank, no cover is needed for the line of 
code or the cover register assignment at object time 
varies and cannot be defined. 


ADDRESS ~— The program-relative address where the line of code 
resides. 


CONTENTS OF MEMORY -— The actual hexadecimal description of the code or con- 
stants produced. An ESID number appears to the right 
of each address constant (DC A). 


OPERAND ADDRESS — The program-relative address of the data or constant 
area being referenced. If this field is blank, the item 
is being addressed indirectly. 


OPCODE — The mnemonic name for the constant or instruction pro- 
duced on this line. If this field is blank and the ‘contents 
of memory’ field contains zeros, alignment is being effected 
for the next line of code. 


COMMENTS ~— This field defines the purpose for which the code was 
generated. For code in the Procedure Division, the 
source program verb is listed. 


Prior to the Procedure Division, the following numbers are used to locate the indicated 
items and areas. 


1. Inter-segment GO TO Subroutine 


Used when control is passed from one segment of a segmented program to another. 
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15. 


16. 


17. 


18. 
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Inter-segment PERFORM Subroutine 





Used when a PERFORM references a section or paragraph in another segment. 
PERFORM EXIT Subroutine 


Called at end of paragraph or section referenced as PERFORM EXIT to determine 
if PERFORM is active or not. 


CVB 

Converts packed decimal to binary. 

CVD 

Converts binary to packed decimal. 
Multiply Half-word Subroutine 

Determines product of two binary halfwords. 
CVB and Multiply Half-word Subroutine 


Converts a packed decimal number to binary and multiplies it by another binary 
number. 


GO TO DEPENDING Subroutine 
PERFORM function required by GO TO DEPENDING function. 


Converts separate sign to embedded sign. 

Converts embedded sign to separate sign. 

Same as 10. 

Calculate occurrence number. 

Alter Fixed Segment Subroutine. <+ 


Transient Storage Area 

Storage area used to perform certain intermediate calculations. 
Special Constants 

Constants required by verb generators. 


Address of USING argument area 


Pointer to area used to pass USING arguments to CALLed routines; also used 
by ACCEPT and DISPLAY functions. 


Address of USE procedure table 


Pointer to table of USE procedure addresses. 


. Address of ALTERed GO TO Table 


Pointer to table of ALTERed GO TO’s in priority segments. 
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20. Start of BAT Table 


A table of addresses used to reference Data Division entries. 


21. Start of PEP Table 


A table of addresses of referenced procedures. 


22. Start of DTF Block Addresses 


A table of addresses which define the starting points of DTF’s and the COBOL 
prefixes for each. 


23. Start of EXTRNs for COBOL Subroutines 

EXTRNed address of subroutines required by certain COBOL functions. 
24. VCON Reference Table 

A table of addresses created by CALL statements compiled as VCON’s. 
25. PERFORM EXIT Storage Area 

Area used to save address and other indicators for PERFORM functions. 
26. Index-Name Storage Area 

Area used to store values of indexes, TALLY also in this area. 
27. PERFORM N TIMES Counter Storage Area 
28. Start of DTF Tables 

A series of tables used to define files for input/output functions. 
29. Start of ALTERed GO TO Table 

A table of ALTERed GO TO’s in priority segments. 
30. Start of USE Procedure Table 


A table used to reference USE procedures containing necessary indicators and 
addresses. 


31. Start of Data Division Initial Values 


Start of listing of constants produced by VALUE clause in Working-Storage 
Section. 


32. Start of Procedure Division Constants 


Area contains those values and constants required by Procedure Division literals 
and functions. 
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SECTION: 


APPENDIX L. USE OF ACCEPT 
AND DISPLAY 
STATEMENTS 


L.1. GENERAL 


When the mnemonic-name specified in the following format is not provided, the 
ACCEPT data will be from the job stream. A display upon the console is assumed 
if the UPON option is omitted. 


ACCEPT identifier FROM mnemonic-name 


L.2. ACCEPT FROM JOB STREAM 


This form of ACCEPT is used to retrieve data images and certain control statements 
from the job control stream. COBOL programs are permitted to access their control 
streams in order to retrieve //BPARAM job control statements and data images. A 
maximum of 4095 bytes of data may be retrieved with a single ACCEPT. The number 


of bytes accepted is not required to be a multiple of 80. Two ACCEPTS of 20 
character items require two cards. 


Job Stream Set-up: 


// EXEC operand 1, operand 2, operand 3, operand 4 


The EXEC statement (execute) is the last statement processed by job control 
before the execution of the program (job step) named in the statement. 


/$ 


The $ statement is used to indicate the beginning of a stream of data that is to 
be diverted to a file for subsequent retrieval by the job. All statements following 
the $ statement up to and including the first /* (end-of-data) statement are filed 
on the resident direct access storage device. Although this statement is required 
by job control, it will not be transferred to the COBOL program. 


DATA IMAGE 1 
DATA IMAGE 2 


DATA IMAGE n 
/* 
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The /* statement is used to indicate the end of a data stream introduced with the 
control stream. This statement is required by job control but will not be transferred 


to the COBOL program. An attempt to retrieve this statement will result in an error 
condition within the COBOL program. 


Control Stream Errors: 


When the control stream is unable to deliver an image to the COBOL program (that is, 

if the next sequential record in the control stream is not a //BPARAM job control state- 
statement, or a data image), control is transferred to the object time error subroutine. 
The subroutine logs the following message on the console: 


CEO1 ERROR-DATA FOR ACCEPT NOT AVAILABLE 


If the COBOL program attempts to retrieve a /* image from the control stream, an 
error condition results. Control is transferred to the object time error subroutine. 
The subroutine logs the following message on the console: 


CEO2 ERROR-INSUFFICIENT DATA FOR ACCEPT 

These errors cause the run to be aborted. 

ACCEPTS from the job stream are not permitted inside a USE for LABEL PROCEDURE. 
ACCEPT IDENTIFIER FROM SYSCONSOLE 


The maximum number of characters that may be entered for a single ACCEPT is 
4092. Due to system and hardware restrictions it is only possible to enter 60 
characters of text per line. 


The following will help to illustrate the mechanics for entering data via the console 
typewriter. 


When the ACCEPT statement is encountered in the COBOL program, one of the 
following messages will be typed: 


1. CA10 ACCEPT READY 

2. CA10 ACCEPT READY - (The hyphen is typed whenever the maximum (60) 
number of characters for one line is to be entered, otherwise the hyphen is not 
printed. The message will be typed for'each line to be entered.) 


The operator, when replying to a console ACCEPT, must enter “job number RB”’ 
followed by the text. 


Example of accepting into a USAGE DISPLAY data item: 


1. *R14:37 18 CA10 ACCEPT READY 
2. 014:37 18R TEST ACCEPTEOM) 


Line 1: 


The * printed on line 1 indicates an OPR message with an operator reply expected. 


The R printed indicates an operator action is required; namely a reply to the message 
presented. The following six characters indicate the time of day. The next three 
characters are job number, NNB job number 18 issued the ACCEPT. The next five 
characters are the message prefix identifying the message origin; this message is 
from COBOL (C) ACCEPT (A) and message type 10 followed by a blank. The remain- 
ing characters are the message text from ACCEPT. 
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Line 2: 


In order to reply to the ACCEPT (OPR), the operator must press the ATTENTION 
KEY. This causes the @ to be printed on the console followed by six characters for 
the time of day. The operator then types JOB4R®B (in the example 18Rb) followed by 
the message text to be accepted. 


When the operator types less than the number of characters expected, the EOM 
(X‘37’) character is accepted into the area and the remaining positions are space- 
filled (X‘40’). 


Information provided for a COMP item must be provided in DISPLAY format, with 
the correct number of digits and sign, as noted in the item description. 


Example of accepting into a signed COMPUTATIONAL-3 data item (PIC $999): 
Enter a computational constant +265. 


1. *R14:38 18 CA10 ACCEPT READY 
2. @14:38 18R 26E(EOM) 


Enter a computational constant —349. 


1. *R14:38 18 CA10 ACCEPT READY 
2. @14:38 18R 34ROM) 


Note that the last character entered must account for the sign of the last integer 
entered. (E=X‘C5’,R=X‘D9’) ACCEPTs from SYSCONSOLE are not permitted 
inside a USE for LABEL PROCEDURE. 


ACCEPT IDENTIFIER FROM SYSDATE 


ACCEPT FROM SYSDATE causes the date to be made available to the program in 
the format yymmdd (PIC 9(6)). This information is moved to the identifier under the 
rules fora COBOL MOVE. 


When the date is set through the job stream (// SET DATE, MM/DD/YY) the date 
is stored in the user’s job preamble. Although not a system convention, COBOL 
expects external SET DATE of mmddyy. If the date is not set via the job stream, 
Job Control will move the date from the system information block (SIB) into the 
user’s job preamble. The date in the SIB is entered via the console by the operator. 
This is accomplished by using the operator SET command to enter the current data. 


By setting the date from the job stream, the user may pre-date or post-date his jobs. 


ACCEPT IDENTIFIER FROM SYSTIME 


The diagnostic listing header line contains the program-ID name, the compiler version, 
and the date and time of compilation. 


An explanation of the diagnostic text can be found in Appendix J. 


ACCEPT FROM SYSTIME causes the time of day to be made available to the program 
in the format hhmm0000(PIC 9(8)), where hh is the hour and mm is the minute (hhmm 
does not exceed 2359). This information is moved to the identifier under the rules 

for a COBOL MOVE. 
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L.6. ACCEPT IDENTIFIER FROM SYSSWCH 


ACCEPT FROM SYSSWCH permits the COBOL program to access the user program 
switch indicator (UPSD byte which is the last byte of the 12-byte communication 
region in the job preamble. An eight-byte item is created containing EBCDIC 0 or 
EBCDIC 1 to represent the OFF or ON status of the individual UPSI bits/switches, 
respectively (i.e., if SYSSWCH-0 and SYSSWCH-2 are ON and all others are OFF, 
ACCEPT FROM SYSSWCH makes available to the program an 8-character item 
containing 10100000). 


L.7. ACCEPT IDENTIFIER FROM SYSCOM 


ACCEPT FROM SYSCOM allows the COBOL program to receive information from the 
communication region in the job preamble. When this ACCEPT is encountered, the 
12-byte communication region is moved to the 12 bytes described by the identifier. 
It is through the communication region that one job step may communicate with a 
following job step. 


NOTE: The twelfth byte of the communication region is the UPSI byte. 


L.8. DISPLAY IDENTIFIER UPON SYSCONSOLE 


DISPLAY UPON SYSCONSOLE permits the COBOL program to display messages 
upon the console typewriter. Message size is limited to 4092 contiguous characters. 


> Each line has the message prefix CD10b. The message text is 59 characters per 
line. When the message text is larger than 59 characters, it is continued on the next 
line. For signed numeric items, a separate character is displayed immediately after 
the operand. If an EOM character (© ,X‘37’) is encountered within the message text, 
it is printed and printing is terminated. 


L.9. DISPLAY IDENTIFIER UPON SYSSWCH 


DISPLAY UPON SYSSWCH permits the COBOL program to change the entire UPSI 
byte. 


The eight bytes described by the identifier are converted into individual bit settings 
and resultant 8 bits are stored in the UPSI byte. A value of X‘F1’ causes a bit 
(UPSI switch) to be turned ON (1 value). 


The UPSI byte may be initialized prior to execution by the SET statement in the 
Job Control stream (// SET UPSI, switch setting). 


L.10. DISPLAY IDENTIFIER UPON SYSSWCH-n 


DISPLAY UPON SYSSWCHe-n allows the COBOL program to change an individual 
switch (bit setting) in UPSI. The eight switches in UPSI are numbered 0 through 
7 from left to right. A one-byte identifier (PIC X) is used to alter UPSI SWITCH-n. 
A value of zero (X‘FQ’) causes the switch to be turned OFF (0 value); any other 
value causes the switch to be turned ON (1 value). 
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L.11. DISPLAY IDENTIFIER UPON SYSCOM 


DISPLAY UPON SYSCOM allows the COBOL program to alter the contents of the 
communication region. The 12 bytes described by the identifier are moved into the 
12-byte communication region in the job preamble. 


The communication region is initialized to binary zeros prior to the first job step 
by Job Control. Through use of the SET statement (// SET COMREG, character 
string), the communication region may be set to an initial value. Information may 
be passed from job step to job step in the communication region. The communica- 
tion region is not changed during job steps. 


L.12. DISPLAY IDENTIFIER UPON SYSLST 


DISPLAY UPON SYSLST permits the COBOL programmer to display messages 
upon the printer. Displays are in 132-character multiples and are printed after 
advancing paper one line. For signed numeric items, a separate sign character 
is displayed immediately following the operand. 


The LFD name assigned to the printer in the Job Control stream must be SYSLST. 


At least one DISPLAY to SYSLST must be performed in the nondeclarative portion 
of the PROCEDURE DIVISION before any are performed within the DECLARATIVE 


portion. 


soe 
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Appendix M 


SECTION: 


APPENDIX M. DEBUGGING 
LANGUAGE 


GENERAL 


The source program debugging statements, READY TRACE, RESET TRACE, EXHIBIT, 
and *DEBUG are extensions to the American National Standard COBOL language. 


The output resulting from the execution of a debugging statement is displayed upon 
the printer (LFD name = SYSLST). The output may be transferred to tape or disc 

by including the appropriate Job Control statement options and format information. 
Printing is performed after a one line paper advance. The print cooperative/symbiont 
mechanism permits subsequent listing. 


The debugging statements may be included between Procedure Division statements, 
or the statements may be put in packet form at the end of the Procedure Division 
(see M.5). 


READY TRACE 
Function: 
The execution of a READY TRACE statement produces the output: 


‘TRACE ON AT line-number’. 


When a section or a paragraph is entered for execution, the following output is 
produced: 


‘section-name (or unqualified-paragraph-name) line-number’ 


Format: 


READY TRACE. 


Rule: 


This statement may appear anywhere in the Procedure Division or in a compile- 
time debugging packet. 
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M.3. RESET TRACE 


Function: 


The execution of the RESET TRACE statement terminates the functions initiated 
by READY TRACE and produces the following output: 


‘TRACE OFF line-number’ 


Format: 


RESET TRACE. 


Rule: 


This statement may appear anywhere in the Procedure Division or in a debugging 
packet. 


M.4. EXHIBIT 
Function: 


The execution of the EXHIBIT statement results in a formatted display of identifiers 
or nonnumeric literals listed in the statement. 


Format: 


identifier-1 
nonnumeric literal-I1 


EXHIBIT {; CHANGED 
CHANGED NAMED 


identifier-n 
’ |nonnumeric literal-n{ “"" |‘ 


Rules: 


NAMED | 


(1) An identifier may not be an index-data-item. 
(2) An identifier length may not exceed 256 bytes. 
(3) Nonnumeric literals may not exceed 132 characters in length. 


(4) Displayed operands are continued as described by the DISPLAY statement. 
A maximum logical record size of 132 characters is assumed. 


(5) An EXHIBIT statement may appear anywhere in the Procedure Division or in 
a debugging packet. 


(6) The NAMED option produces a noncolumnar display of all operands specified 
in the EXHIBIT statement. The operands are displayed in source order and 
are formatted as follows: 


(a) Identifier 


identifying namebDequal signbidentifiers valueb 


The identifying name includes qualifiers and subscripts. A maximum of 


130 characters will be displayed. Se 


eer 
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The identifiers value may be a maximum of 256 characters. If the identifier 


is a signed numeric elementary item, a sign is also displayed following the 
value. 


(b) Nonnumeric literal 


nonnumeric literalb 


The CHANGED NAMED option produces a noncolumnar display of all nonnumeric 
literals and, conditionally, the identifiers specified in the EXHIBIT statement. 
The format sequence of the displayed operands is as described in Rule (6). If 
the value of the identifier has not changed since the previous execution of this 
EXHIBIT statement, the identifier is not displayed and space is not reserved 

for the value in the print record. 


All identifier values are considered changed on the initial execution of the 
statement. If the EXHIBIT statement does not contain any nonnumeric literals 
and the value of all identifiers is the same as when this EXHIBIT was previously 
executed, neither a display nor a form advance occurs. 


The CHANGED option produces a columnar display of all nonnumeric literals 
and the changed values of all identifiers. 


If the value of the identifier has not changed since the previous execution of 
this EXHIBIT statement, the positions reserved for the identifier value are 
displayed containing spaces. All identifier values are considered changed on 
the initial execution of the EXHIBIT statement. 


When the statement contains only identifiers and none of the values have 
changed, one line of spaces is displayed. The operands are displayed in the 
order in which they appear in the statement and have the following format: 


(a) Identifier 


identifier valueb 


The identifier value may be a maximum of 256 characters. If the identifier 
is a signed numeric elementary item, its sign is displayed following the 
value. 


(b) Nonnumeric literal 


non-numeric literalb 


If two distinct EXHIBIT CHANGED NAMED or two EXHIBIT CHANGED state- 
ments appear in one program, each specifying the same identifiers, the changes 
in value of those identifiers are associated with each of the two separate state- 
ments. Depending on the path of program flow, the values of the identifier saved 
for comparison may differ for each of the two statements. 


Variable length identifiers are not permitted as operands with the CHANGED 
or CHANGED NAMED option. 


PAGE: 
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M.5. THE DEBUGGING PACKET 


A packet contains debugging statements referring to a paragraph name or a section 
name in the Procedure Division. The debug packets are grouped together and placed 
immediately following the source program. The packet statements are compiled with 
the source program and are executed at object time; the packets produce the same 
result as placing the debug statements directly in the source program following a 
section name or a paragraph name. 


Each debug packet is preceded by a control card which has the following format: 


1 8 
*DEBUG location 


Location refers to a section or paragraph name which starts anywhere within margin 
A. The name, which may be qualified, indicates the starting point in the program 
where execution of the packet is to begin. Location cannot be a paragraph name 
within any debug packet and the same location must not be used in more than one 
debug control card. 


A debug packet may consist of procedural statements such as GO TO, PERFORM, 
or ALTER. These statements may refer to a procedure name in any debug packet 
or in the main body of the Procedure Division. 


When the source COBOL program is on a library file (tape or disc), the library 
module containing the source program may also contain *DEBUG control cards, 
Regardless of whether the library module contains any *DEBUG cards, when the 
compiler reaches the end of the library module, it will determine if any additional 
*DEBUG cards are present in the job stream. If there are *DEBUG cards in the me 
job stream, they are processed as if they were contained at the end of the library 
module. If there are no *DEBUG cards present in the job stream, the process of 
reading COBOL input to the compiler is terminated. 


Example: 


EXEC COBOL,LOAD$LIB, ,REL 
PARAM IN = PROGNAME/LIBIN 
PARAM LST = (0,C,S) 
$ 
*DEBUG 


*DEBUG 


/* 


eer" 
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APPENDIX N. ASCII PROCESSING 


GENERAL 


When the PARAM statement is specified in the job control stream, the COBOL compiler 
produces an object program which assumes that the contents of any data item, with an 
implied or explicit USAGE IS DISPLAY, is represented in American Standard Code for 
Information Interchange character set (ASCII). 


The format of the PARAM statement is: 
// PARAM OUT=A 


Although an EBCDIC or ASCII object program may be generated by the compiler, 
compilation is always performed in EBCDIC mode, as is the source program input 
and all listable output. The following discussion applies to programs produced under 
control of the ASCII option. 


When the ASCII mode is selected, the computer character set at execution time consists 
of the 128 ASCII character codes (normally, the computer character set consists of 

the full 256 EBCDIC characters). Compilerecreated object programs are Sensitive at 

the hardware instruction level to the ASCII character set. 


FIGURATIVE CONSTANTS 


The value associated with the figurative constant HIGH-VALUE is hexadecimal 7F. 
QUOTE, ZERO, and SPACE take on the corresponding ASCII value. LOW-VALUE 
remains a hexadecimal 00. 


COMPUTATIONAL ITEMS 


Values associated with WORKING-STORAGE items whose USAGE IS DISPLAY are 
allocated to the program in the appropriate ASCII character codes. The allocation of 
values for computational forms of data is not effected by the interchange mode selection. 
These values are generated in the corresponding computational format. When computa- 
tional items are moved or compared against DISPLAY items, they are automatically 
converted to the ASCII character code values. 


SIGNED ITEMS 


The ASCII character set does not facilitate the use of the traditional overpunch sign 
convention; however, 9400 implementation of ASCII does permit overpunching. See 
5.3.13. An ASCII signed numeric DISPLAY item should have an S in its PICTURE 
and be associated with a SIGN IS SEPARATE CHARACTER clause. Signed numeric 
items used in conjunction with arithmetic operations are automatically converted to 
the appropriate signed computational format. 


Signed numeric values of PROCEDURE DIVISION constants must be specified with 
the sign as the leftmost character regardless of the SEPARATE SIGN option. 


APPLY ASCII 


ASCII files must be declared to the compiler by the APPLY ASCII ON file-name clause. 
ASCII files must also be declared to the supervisor by the ASCII parameter on the LFD 
job control statement. Any file may be classified as an ASCII file except those assigned 
to DISC. A mix of ASCII and non-ASCII files is permitted in the COBOL program. 
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N.6. RECORDING MODE 





Regardless of the mode specified for files assigned to TAPE, user labels and data 
records are presented to the program in their external character code representation. 
No translation of input or output records is performed by the system. The RECORDING 
MODE IS D clause may be specified for ASCII tape files which contain variable length 
records. 


An option within the APPLY ASCII ON file-ename clause allows the specification of 
a buffer offset for any tape input file or the activation of the block length check feature 
on tape files with RECORDING MODE D. 


If a file assigned to the printer is declared as being an ASCII file, the device will 
accept only ASCII records. Multiple print files, assigned to the same device, with 
different mode specifications are not permitted. 


Depending on the mode specified for a file assigned to a CARD-READER, the system 
will present input records to the program in either ASCII or EBCDIC. Multiple card 
reader files assigned to the same device with different mode specifications are not 


permitted. 


Depending on the mode specified for a file assigned to a PUNCH, the system will 
accept output records from the program in either ASCII or EBCDIC. Multiple card 
punch files assigned to the same device with different mode specifications are not 


permitted. 


N.7. CONSTANTS AND LITERALS 


PROCEDURE DIVISION numeric literals and nonnumeric literals used in conjunction 
with items whose USAGE IS DISPLAY are allocated within the object program as 
ASCII constants. Literals associated with computational data items are allocated 

in the corresponding computational format. 


N.8. CONDITIONAL TEST 
The results of an IF statement associated with an item whose USAGE IS DISPLAY is 
based upon the assumption that the item is represented in the ASCII character set. 


N.9. DISPLAY 


DISPLAYs upon SYSLST and output from TRACE/EXHIBIT statements require that 
ASCII be specified on the LFD control card for SYSLST. If, at the time this output 
is generated, a user print file assigned to the same device is OPEN but was not 
declared as an ASCII file, the device will not accept the debug output records. 


N.10. ACCEPT 


Since the console assumes the mode of the problem program, only ASCII data should 
be DISPLAYed upon SYSCONSOLE. When ACCEPTing from SYSCONSOLE, the user 
will receive ASCII data. 


Data ACCEPTed from the job stream will also be in ASCII. This includes // PARAM 
cards. 
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SORT 


Sorting is controlled entirely by the SORT KEY specifications and the values contain- 
ed within the KEY fields. SORT keys whose category is other than numeric are pro- 
cessed according to their hexadecimal value. Numeric keys are treated algebraicly 
regardless of the item’s operational sign location. 


CONVERSION OF DISPLAY ITEMS 


The TRANSFORM statement may be used to convert DISPLAY items from one character 
representation to another. 


A special format of the TRANSFORM statement will facilitate translation from ASCII 
to EBCDIC or from EBCDIC to ASCII via compiler created translate tables. This option 
is specified when the reserved words ASCII or EBCDIC appear following the word 
FROM or TO. If TRANSFORM rules are specified by nonnumeric literals, transforma- 
tion across code bases is not possible. 


COBOL SOURCE LANGUAGE ADDITIONS 


Format: 


APPLY ASCII [wir BUFFER-OFFSET eo BLOCK ENGTH-CHECK | 


OF integer CHARACTERS 


ON file-name |, file-name]. ... 
Rules: 


1. The APPLY ASCII clause identifies each file that contains or receives ASCII data 
(see 4.3.2), 


2. The BUFFER-OFFSET option applies only to files that are assigned to TAPE. The 
absence of this option implies the absence of a buffer offset. 


3. The integer CHARACTERS option specifies the number of additional characters that 
appear at the front of each data block in the file. Integer may have a value of 0 to 99. 
The specified offset applies only to files OPEN for INPUT. The offset area cannot 
be referenced by the program nor can it be created when the file is OPEN for OUTPUT. 


4. The BLOCK-LENGTH-CHECK option applies only to tape files whose RECORDING 
MODE IS D. When specified, input data blocks are assumed to possess a four character 
buffer offset which contains the length of the block. Data Management routines validate 
that each block read contains the number of characters specified in this field. When the 
file is being created, the block length is placed in the four-character buffer offset area, 
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N.14. THE RECORDING MODE CLAUSE 


Format: 


RECORDING MODE IS 


lo |mI\<Ic 


Rules: 


1. The RECORDING MODE clause is expanded to include the specification 
of ‘D’ type records (see 5.2.1.4) 


2. A recording mode of ‘D’ may be specified for ASCII tape files with variable-length 
records. 


Tape files declared as ASCII may also have a recording mode of ‘V’ since, for 
ASCII files, ‘D’ and ‘V’ are synonymous. The ‘D’ mode is for compatability with 
other implementors. 


Ww 
. 


U format records 


4 ; *T puffer: 
iz | offset 
F format records 


unblocked ne ne buffer oe ee 
a 
L. [offset - 


7 7 wither 
blocked Is | data 
L 1 offset 


D format records 


unblocked ls | oppo dddd | dota | 


pieckes Fs T opo0 | aaa saa 


~ Block sequence indicator. Optional one-character field whose value 
cycles from 0 to 9, 0 to 9, etc. Presence specified by the APPLY 
BLOCK-COUNT clause. 


Buffer offset — Optional field at the front of each input data block. Offset may be 
0 to 99 characters in length. This area cannot be referenced by 
program nor can it be created on output files. Presence specified by 


the APPLY ASCII WITH BUFFER-OFFSET OF integer CHARACTERS 


clause. 
~ Optional block length field in an implied buffer offset area of four 
characters. Block length is created and validated by data management 
programs. This option is specified by the APPLY ASCII BUFFER- 
OFFSET FOR BLOCK-LENGTH-CHECK clause. 
dddd —Record length. 


S, DDDD, dddd are all in ASCII decimal! format. 





Figure N-1. ASCII Physical Tape Formats 
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FILE APPLY APPLY 
: RECORDING LABEL RECORDS | BUFFER-OFFSET| BLOCK- 
— MODE IS DECLARED | spECIFICATIONS 
AS INPUT | OUTPUT acces 


OMITTED 
EBCDIC STANDARD optional 
data-name 
OMITTED 
ASCII STANDARD optional 
data-name 6) 
OMITTED 
EBCDIC STANDARD optional 
F data-name 


blocked or 
unblocked OMITTED 
ASCII STANDARD optional 
data-name 6) 
OMITTED 
EBCDIC STANDARD optional 
Vv data-name i 
blocked or 
unblocked ASCII 
EBCDIC 
D 
block 
ies OMITTED 
Su ASCII STANDARD 0 to 99 @) optional optional 
data-name @) 6) 





NOTES: 


® De facto standard as defined by UNIVAC 9400 System Data Management System 
Programmer Reference, UP—7629 (current version) 

ANSI standard. 

Implies presence of system standard labels | or 2. 


BLOCK-LENGTH-CHECK specifies that a buffer offset of four characters contains 
the length of the block for verification by data management programs. 


© ©©®8 


Specifies a oneecharacter cyclic block sequence indicator. 


Table N—1. Characteristics of Tape Files Available to COBOL Users 
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CONTROL CHARACTER SYMBOL Eee 


FS 
GS 
RS 
US 
SP, SPACE 


Table N—2. ASCII/EBCDIC Conversion (Part 1 of 3) 
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SIGNED 
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| DEC | NUMBER 


EBCDIC SIGNED 
CONTROL CHARACTER SYMBOL | HEX | 
FI 


oOWMWOnN OA FP WN 


< 
> 
? 
@ 
A 
B 
c 
D 
E 
F 
G 
H 
J 
K 
L 
M 
N 
fo) 
P 
Qa 
R 
s 
a 
U 
v 
w 
x 
Y 
z 
[ 
\ 
] 


Table N—2, ASCII/EBCDIC Conversion (Part 2 of 3} 
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CONTROL CHARACTER 


*For edit mask conversion only. 


Table N—2. ASCII/EBCDIC Conversion (Part 3 of 3} 
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APPENDIX O. RERUN CLAUSE 


0.1. GENERAL 


The RERUN facility provides a means of recording the status and environment of a 
COBOL program at a specified point in the processing of that program. Once recorded, 
this status and environment may be re-established and execution of the COBOL program 
resumed from this point. The RERUN facility causes linkage between the COBOL 
program and the 9400 checkpoint facility. The RESTART ability is provided by the 
RESTART job control statement. 


0.2. RERUN CLAUSE 


The RERUN clause may appear in the I-O-CONTROL paragraph of the ENVIRONMENT 
DIVISION. The format of the rerun clause is: 


RERUN ON external-name EVERY integer RECORDS OF file-name-1 [, file-name-2,...] 


The external-name in the format above must appear in a SELECT statement. The device 
specified by external-name is the RERUN receiver; this device receives the check- 
point records which contain the status and environment of the COBOL program. File- 
name-l, file-name-2, etc., are RERUN controllers; these files dictate when the check 
point records are to be issued. The same rerun receiver may appear in any number of 
RERUN clauses; a RERUN controller may appear in only one RERUN clause. The 
allowable range for integer is 1 to 9,999,999, 


0.3. CHECKPOINTING 


Checkpoint records are issued whenever integer records occur for a rerun controller. 
The rerun controller’s record counter is set to 0 when the controller is opened and 
incremented by 1 before each READ, WRITE, or INSERT issued to the controller. 
When the rerun controller is opened as I-O, a WRITE does not cause the record counter 
to be incremented. 


If the rerun receiver is a tape device, it may be dedicated to receiving checkpoint 
records or it may receive other program output. If the rerun receiver is dedicated, it 
will be OPENed automatically with the assumption that label records are omitted. 

If the rerun receiver is being shared with other program output, it is the programmer’s 
responsibility to ensure that the receiver is OPENed for OUTPUT whenever check- 
point records are issued. Checkpoint records will not be issued if the receiver is not 
OPEN for OUTPUT. 


If the receiver is a disc device, it must be dedicated to receiving checkpoint records. 
The device must appear in a SELECT statement but not in an FD. 
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If the RERUN facility is to be used in a single, linked object program which is com- 
posed of multiple COBOL object programs, a RERUN clause must appear in each 
COBOL module which performs I/O. When a RERUN controller is opened, the files 

of that module are added to the list of files for the entire program. Therefore, in 

each COBOL object module, a RERUN controller should be opened before any other 
I/Ois done in that module. Otherwise, it is possible that checkpoint records will 

be issued which do not contain the status of all the active files in the entire program. 


0.4. RESTARTING 


To initiate the restart of a previously checkpointed program, the original control 
stream, with the addition of a // RSTRT control statement immediately following the 
// JOB control statement, should be entered. The format of the // RSTRT statement 
is specified in UNIVAC 9400 System Job Control Programmer Reference, UP-7793 


(current version). 


0.5. NOTES AND RESTRICTIONS 


Due to the manner in which the sort facility’s temporary scratch files are processed, 
checkpoints which reflect usable restart information cannot be issued. Therefore, 
even though integer records may occur for a rerun controller, checkpoints will not be 
issued if a sort is active. 


The restart facility will verify and reposition the programs files; however, the pro- 
grammer must ensure that the data on those files has not changed since the time of 
the checkpoint, or that any change will not affect the execution of the restarted 
program. For example, a disc file is being updated and a checkpoint is issued just 
prior to reading record number 400. The program is aborted for external reasons after 
record number 500 is updated and rewritten. The restarted program will begin updating 
at record number 400; however, records number 400 through 500 have already been 
updated. 


The restart facility will reposition the program’s control stream to the card following 
the last card ACCEPTed before the checkpoint was taken. This is done by searching 
the control stream for a card match. If duplicate cards exist in the control stream, it 
is the responsibility of the programmer to ensure that the first card match is the 
proper one. 
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APPENDIX P. CONVERSION MODE 
P.1. GENERAL 


To facilitate the conversion of a nonstandard COBOL to UNIVAC 9400 COBOL, a conversion facility has been built 
into the UNIVAC 9400 COBOL compiler. This facility, called the conversion mode (or C-mode), accepts COBOL 
source code and alters it to American National Standards Institute (ANSI) specifications, or flags it so the 
programmer is made aware of the need for changes. 


The source code that has been chosen as input to the conversion mode is IBM System/360 DOS COBOL level D 
(COBOL-D) because it is representative of high level nonstandard COBOL. 


P.2, CONVERSION MODE OPERATION 
A PARAM card option is available to energize the conversion mode of the UNIVAC 9400 COBOL complier. 


The conversion mode availability does not imply total source program transfer capability. Its intent is to minimize 
the volume and complexity of source program alterations necessary to successfully compile a given COBOL-D 
program. Every attempt is made to provide software support for those language differences that would, under a 
totally manual conversion process, require a knowledge of the source program intent and logic flow. Source program 
statements that must be altered prior to compilation are, in most cases, independent of program design. 


There are several methods by which the conversion mode operates on a COBOL-D source program. In addition to 
accepting portions of the alien syntax and interpreting that syntax in a COBOL-D manner, the complier alters the 
meaning of certain source clauses and statements. For example, a COBOL-D COMP clause is treated as a UNIVAC 
9400 COMP-4 clause. 


In the conversion mode, various compiler processing paths are altered to effect a change in the semantic 
interpretation of a COBOL-D clause or statement, as in the case of contradiction across compilers associated with 
the IF NUMERIC statement. 


Occasionally, an entire processing philosophy can be reversed. In the conversion mode, the compiler assumes that 
ASCII print control characters are utilized in all print files. In addition, a special COBOL-supplied object time 
subroutine is provided to ensure acceptable object program print speed. This software bridges the gap between the 
exclusive use in COBOL-D programs of the WRITE AFTER ADVANCING statement and the associated UNIVAC 
9400 System hardware limitation. 


This appendix describes the known differences that exist between COBOL-D and UNIVAC 9400 ANS COBOL. It 
also defines the language differences that the conversion mode renders transparent. Those language differences for 
which no automatic software support is possible are also identified here, along with the appropriate source program 
change requirement. 
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When functioning in the conversion mode, many of the compiler’s ANS language features are disabled. Therefore, it 
is not recommended that a COBOL-D program once converted, be modified to take advantage of the many 


additional UNIVAC 9400 language capabilities without first being totally converted to ANS COBOL. badd 
In the normal ANS COBOL mode, COBOL-D language differences are not permitted. The special processing 
interpretations and software extensions available in the conversion mode are not supported in the ANS mode; that 
is, contro! of character print files are unique to the conversion mode. 
NOTE: 
The conversion mode and the ASCII mode of the compiler are mutually exclusive. This restriction is imposed 
because of the incompatibility between the IBM and UNIVAC ASCII implementation philosophy. UNIVAC 
supports internal ASCII processing, while {BM effects data translations at the extremities. This is remedied by 
use of the TRANSFORM verb in conjunction with input/output processing. 
P.3. CONVERSION MODE SYNTAX 
The differences between COBOL-D and UNIVAC 9400 COBOL are described in the following paragraphs within 
each program division. 
P.3.1. Identification Division 
a PROGRAM-!D. program-name. 
COBOL-D 


Program-name is one to eight characters enclosed in quotation marks. 


9400 


Program-name is one to thirty characters not enclosed in quotation marks. Only the first six characters, 
excluding hyphens, are used to identify the object program. 
C-mode 
9400 will accept a 1- to 8-character name enclosed in quotation marks. Only the first six characters, 
excluding hyphens, are used to identify the object program. 
P.3.2. Environment Division 
a CONFIGURATION SECTION heading. 
COBOL-D 


Optional. 
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9400 


Required. 


C-mode 
Optional. 
s SOURCE/OBJECT COMPUTER clause. 
COBOL-D 


1BM-360 model-number. 
9400 

UNIVAC-9400. 
C-mode 


The compiler accepts any SOURCE/OBJECT COMPUTER entries that are valid for COBOL-D. 


s SPECIAL-NAMES paragraph/DECIMAL-POINT IS COMMA clause 


G3 COBOL-D 


Does not exist. Reversal of decimal point and comma is activated by a parameter on the CBL control 
card. 


9400 
Reversal of decimal point and comma controlled by SPECIAL-NAMES entry. 


C-mode 


No automatic support. The convertor has to insert a special-names paragraph and the DECIMAL-POINT 
1S COMMA clause into the source program before compiling. 


If the CONSOLE or SYSLST option of an ACCEPT/DISPLAY statement is used in the program, the 
compiler will automatically produce a special-names entry, internally, for the program. CONSOLE will 
be equated to SYSCONSOLE, and SYSLST will be equated to SYSLST. 
t SELECT/ASSIGN clause 
COBOL-D 
DIRECT-ACCESS 
ASSIGN TO ‘external-name’ UTILITY 
UNIT-RECORD 


device-number UNIT (s) 
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9400 


ASSIGN TO ‘external-name’ integer implementor-name 


C-mode 


No automatic support. The SELECT statement, with respective ASSIGN clauses, must be replaced by 
the appropriate UNIVAC 9400 SELECT/ASSIGN clauses before compilation. 


a ACCESS clause 
COBOL-D 


The word ‘IS’ is optional. 


9400 


The word ‘IS’ is required. 


C-mode 
The word ‘IS’ is optional. 
a KEY clauses 
COBOL-D 


The word ‘IS’ is optional. 


9400 


The word ‘IS’ is required. 


C-mode 
The word ‘IS’ is optional. 
s t-O-CONTROL paragraph entries 
COBOL-D 


Allows the clauses of the |-O-CONTROL paragraph to be separated by periods. 


9400 
Allows the clauses to be separated by a comma or a semicolon. A period must follow the last entry in 
the paragraph. 

C-mode 


No automatic support. The embedded periods within the |-O-CONTROL paragraph must be removed 
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RERUN clause 
COBOL-D 


DIRECT ACCESS 


RERUN ON ‘external-name \ UTILITY 


\ device-number 


UNIT(s) EVERY integer RECORDS OF fite-name. 
External-name may not be the same as the external-name in an ASSIGN clause. 


Allows a maximum of 20 external devices to be used to store checkpoint records — only one of these 
can be a direct access device. 


Checkpoint records are written preceding the execution of integer for a READ, WRITE, or REWRITE 
statement. Integer may not exceed 8,388,607. 
9400 
RERUN ON ‘external-name’ EVERY integer RECORDS OF file-name 
The external-name must be specified in an ASSIGN clause. 
The only restriction on the devices is the compiler limit of 63 devices per program. 


Integer may not exceed 9,999,999. 


C-mode 


No automatic support. The RERUN clause must be replaced by one that conforms to the OS/7 COBOL 
format. A SELECT statement must be added for each external-name in each RERUN clause. 


APPLY clause for FORM-OVERFLOW 
COBOL-D 


APPLY overflow-name TO FORM-OVERFLOW ON file-name. 


9400 


This clause is not supported. 


C-mode 


No automatic support. Remove the APPLY FORM-OVERFLOW clause from the source program. Add a 
USE FOR FORM-OVERFLOW procedure in the Declaratives portion of the Procedure Division for 
detection of page breaks. 
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APPLY clause for RESTRICTED SEARCH 
COBOL-D 


The word ‘ON’ is optional. 


9400 


The word ‘ON’ is required. 


C-mode 

The word ‘ON’ is optional. 
COPY library-name 
COBOL-D 


Library names are enclosed in quotation marks. 


9400 


Library names are not enclosed in quotation marks. 


C-mode 
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Library names are enclosed in quotation marks. All libraries are expected to be in UNIVAC 9700 


format. 


P.3.3. Data Division 


Data formats 


COBOL-D 


COMPUTATIONAL-1 specifies short floating-point format; COMPUTATIONAL-2 specifies long 


floating-point format. 
9400 

COMPUTATIONAL-1 and 2 are not supported. 
C-mode 


COMP-1 and 2 are not supported. 
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LABEL RECORDS clause 


COBOL-D 


Optional clause. If omitted, LABEL RECORDS OMITTED is assumed. For LABEL RECORDS ARE 
data-name, the data names must be 01 or 77 in the Linkage Section. 


9400 
Required clause. If the clause is omitted, a diagnostic is produced and OMITTED is assumed (unless 
device is disc, then labels are assumed to be STANDARD). For LABEL RECORDS ARE data-name, the 
data-name record description must be subordinate to the file description. 


C-mode 


Optional clause. Same default as COBOL-D. Label data-names must be in Linkage Section as 01 or 77 
level items. 


PICTURE clause 
COBOL-D 


An external floating-point item may be defined by a PICTURE which contains an ‘E’ and two sign 
characters. The sterling currency feature may be specified by extensions to the PICTURE clause. 


9400 

Neither the sterling currency feature nor the external floating-point PICTURE description are supported. 
C-mode 

Neither the sterling currency feature nor the external floating-point PICTURE description are supported. 
USAGE clause 
COBOL-D 

The USAGE IS COMPUTATIONAL clause indicates that the data is in binary format. 


If USAGE IS COMP, COMP-1, or COMP-2, intra-record slack bytes are added by the compiler to ensure 
that the data is aligned on a half-word, full-word, or double-word boundary. 


9400 


USAGE IS COMPUTATIONAL indicates that the data is in packed decimal format. Binary data formats 
are not supported. COMP-1 and 2 are not supported. 


C-mode 


There is no support for binary or floating-point data formats. 
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Working-Storage Section 


COBOL > 
All 01's are aligned on a double-word boundary. 
9400 
Level 01’s in Working-Storage Section are not aligned. 
C-mode 
All level 01's in Working-Storage Section are not aligned on a double-word boundary. 
COPY specifications 
COBOL-D 
The COPY statement is allowed on 77 items in the Working-Storage and Linkage Sections. 
9400 
The COPY statement is not allowed on 77 items. 
C-mode 
The COPY statement is allowed on level-number 77 items in the Working-Storage and Linkage Sections. 


However, the implied replacing feature is not supported. Replacing can be accomplished by use of 
explicit REPLACING clauses. All COPY libraries are expected to conform to UNIVAC 9400 formats. 


ert 


P.3.4. Procedure Division 


ACCEPT statement 
COBOL-D 
A maximum of 72 characters may be accepted from the console. 


When the FROM option is not used, one fogical record will be retrieved from the system logical input 
device (SYSIPT). 


Since a special-names paragraph is not available, the only acceptable FROM option is CONSOLE. 
1f /* is encountered on an ACCEPT statement, a fall through to the next source statement is effected. 


End-of-file detection is the user’s responsibility. 


9400 


A maximum of 4095 characters may be accepted from the console. 
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When the FROM option is not used, a maximum of 4095 characters (52 card images) are retrieved from 
the job stream. 


if /* is encountered on an ACCEPT statement, an object-time diagnostic is issued and the program is 
terminated. 
C-mode 
SYSIPT is equivalent to the UNIVAC 9400 job stream file. 
The compiler creates an internal special-name definition to equate CONSOLE to SYSCONSOLE. 
= DISPLAY statement 
COBOL-D 
When the UPON option is omitted, SYSLST is assumed. 
Displays may be directed to SYSPUNCH. 


The sign of a numeric item is not displayed as a separate character, i.e., -32 displayed as 3K. 


9400 
When the UPON option is omitted, SYSCONSOLE is assumed. 
Displays to a punch are not supported. 


The sign of a numeric item is displayed as a separate character, i.e., -32 displayed as 32-. 


C-mode 


When the UPON option is omitted, SYSLST is assumed. The compiler creates an internal special-name 
definition to equate SYSLST to SYSLST. 


Restriction: Displays to a punch are not supported. The sign of a numeric item is displayed as a separate 
character. 


a IF statement 
COBOL-D 
A class test may be performed on an item whose usage is either DISPLAY or COMP-3 (packed decimal). 
An IF NUMERIC test always assumes the item is signed, for example: 
DATA-AA PIC X VALUE IS ‘A’. 


An IF NUMERIC test on DATA-AA yields a ‘yes’. 
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9400 


A class test may be performed only on an item whose USAGE IS DISPLAY, but not floating-point 
display. 


An IF NUMERIC test does not assume an item is signed. The sign is interrogated only if the item is 
declared to be signed; for example: 


DATA-AA PIC X VALUE IS ‘A’. 


An IF DATA-AA NUMERIC results in a ‘no’. 


C-mode 


A class test may be performed on an item whose USAGE IS COMP-3 (packed decimal) or floating-point 
display. 


An |F NUMERIC test always assumes the item is signed. 
INCLUDE (COPY) statement 
COBOL-D 


An INCLUDE statement in the Procedure Division implies a COPY function. 


9400 
The INCLUDE statement is not supported. The COPY verb must be used. 
C-mode 


The INCLUDE statement is equated to the COPY function. Library names enclosed in quotation marks 
are accepted. COPY libraries are expected to be in UNIVAC 9400 format. 


MOVE statement 
COBOL-D 


When an unsigned numeric item is moved to a signed numeric item, the sign of the receiver is set to ‘F’. 


9400 


When an unsigned numeric item is moved to a signed numeric item, the sign of the receiver is set to plus. 


C-mode 


When an unsigned numeric item is moved to a signed numeric item, the sign of the receiver is set to ‘F’. 
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ON statement 


COBOL-D 


This statement is supported. 


9400 


This debugging statement is not supported. 


C-mode 
No automatic support. This clause is not supported. 

READ statement 

See P.5 for disc considerations. 

STOP statement 

COBOL-D 
When the STOP RUN statement is encountered in a called program, control is returned to the calling 
program. 

9400 


A STOP RUN statement causes an end-of-job termination sequence. 


C-mode 


When a STOP RUN statement is encountered in a called program, it is treated as an EXIT PROGRAM 
statement. 


USE AFTER STANDARD ERROR PROCEDURE 
COBOL-D 


The word ‘PROCEDURE’ is optional. 


9400 


The word ‘PROCEDURE’ is required. 


C-mode 


The word ‘PROCEDURE’ is optional. 
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: USE FOR LABEL PROCEDURE 











COBOL-D 
CREATING BEGINNING 
USE FOR | SEAN \ Sa } PABELS 
INPUT ; 
ON | que file-name. 
9400 
REEL 
BEFORE BEGINNING ———— 
USE ‘ AETER ; STANDARD V eRBING \ UNIT LABEL 
—_—_——— aD FILE 
file-name 
INPUT 
PROCEDURE ON OUTPUT 
1-O 
C-mode 


No automatic support. The USE statement for label procedures must be rewritten as per the UNIVAC 
9400 format. 


a WRITE statement 
See P.4 printer considerations, and P.5 for disc considerations. 
2 *DEBUG card 


COBOL-D 


*DEBUG packets precede the source deck. 


9400 


*DEBUG packets follow the source deck. 


C-mode 


No automatic support. The *~DEBUG packets must be moved from in front of the source program and 
placed behind the source program. 
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C-mode 
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The following UNIVAC 9400 COBOL reserved words may currently exist in COBOL-D source programs as 
user-defined words. Their use as user names will not be allowed by the UNIVAC 9400 COBOL compiler. 


ASCENDING 
ASCH 


BEFORE 
BLOCK-COUNT 
BLOCK-LENGTH-CHECK 
BUFFER-OFFSET 


CARD-PUNCH 
CARD-READER 
CARD-READER-51 
CARD-READER-66 
CHARACTERS 
COMMA 
COMPUTATIONAL 
COMPUTATIONAL-3 
COMPUTATIONAL-4 
COMP 

COMP-3 

COMP-4 

CORR 
CORRESPONDING 
CURRENCY 
CYLINDER-INDEX 
CYLINDER-OVERFLOW 


DECIMAL-POINT 
DESCENDING 
DISC 

DISC-8411 
DISC-8414 
DOWN 


EQUALS 
EXTENDED-INSERTION 
EBCDIC 


FILE-LIMIT 
FILE-LIMITS 
FILE-PREPARATION 


INDICES 
INDEX 
INSERT 


JUST 


LINE 


MAP 
MASTER-INDEX 
MEMORY 
MODULE 
MORE-LABELS 
MULTIPLE 


OFF 
OPTIONAL 


PERCENT 
PIC 
POSITION 
PRINTER 
PROGRAM 


RELEASE 
REMAINDER 
RENAMES 


SEARCH 
SEGMENT-LIMIT 
SEPARATE 


SEEK 

SET 

SIGN 

SORT 
SPECIAL-NAMES 
STATUS 
SYNC 
SYNCHRONIZED 
SYSCHAN-4 
SYSCHAN-5 
SYSCHAN-6 
SYSCHAN-7 
SYSCHAN-8 
SYSCHAN-9 
SYSCHAN-10 
SYSCHAN-11 
SYSCHAN-12 
SYSCHAN-13 
SY SCHAN- 14 
SY SCHAN-15 
SYSCOM 
SYSCONSOLE 


SYSDATE 
SYSERR 
SYSERR-O 
SYSERR-1 
SYSERR-2 
SYSERR-3 
SYSERR-4 
SYSERR-5 
SYSERR-6 
SYSERR-7 
SYSERR-8 
SYSERR-9 
SYSERR-10 
SYSERR-11 
SYSERR-12 
SYSERR-13 
SYSERR-14 
SYSERR-15 
SYSSWCH 
SYSSWCH-0 
SYSSWCH-1 
SYSSWCH-2 
SYSSWCH-3 
SYSSWCH-4 
SYSSWCH-5 


SYSSWCH-6 
SYSSWCH-7 
SYSTIME 


TAPE 
TAPES 
TAPE-6 
THROUGH 
TIME 
TRACKS 
TRAILING 


UNIVAC-9400 
UP 


VALUES 
VERIFY 


WORDS 
WHEN 
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P.4. PRINTER FILE SUPPORT 


Support is available for printer files in the conversion mode of the COBOL compiler; the aim is to be as compatible 
as possible with COBOL-D printer file processing within the limits of hardware differences. 


Due to the manner in which the UNIVAC 0768 Printer Subsystem hardware operates, an advance-then-print 
command (WRITE AFTER ADVANCING) results in the effective half-speed of the device. In COBOL-D, 
advance-then-print is the only option allowed. 


When in the conversion mode, the compiler produces object code to change logical advance-then-print commands 
into physical print-then-advance operations. This causes full-speed operation of the UNIVAC 0768 Printer 
Subsystem. All printer files must be defined and referenced according to COBOL-D rules. Each printer file must have 
fixed recording mode and first character control. COBOL-D control characters must be used; consequently, neither a 
BEFORE ADVANCING nor an ADVANCING mnemonic-name will be supported in the source language. The only 
acceptable format for a printer WRITE statement is: 


WRITE record-name FROM identifier 
AFTER ADVANCING { identifier 


: \ LINES. 
literal 





Restrictions: 


COBOL-D allows an APPLY FORM-OVERFLOW clause in the I1-O-CONTROL paragraph of the Environment 
Division. The APPLY FORM-OVERFLOW clause must be converted to a USE FOR FORM-OVERFLOW procedure 
in the declaratives portion of the Procedure Division. 


In COBOL-D, when APPLY FORM-OVERFLOW is specified, one line is printed after the overflow punch in the 
carriage control loop is detected. Due to the manner in which the logical write commands are converted into 
physical commands, three lines are printed after overflow is detected. 


No action is taken when form overflow is encountered unless specified by a USE FOR FORM-OVERFLOW 
procedure. 


To overcome the problem of three lines being printed after the overflow punch in the carriage control loop is 
crossed, the overflow punch must be moved back on the carriage control loop by two logical print commands (two 
lines if single spacing, four lines if double spacing, etc.). If the overflow punch crosses or coincides with another 
carriage control punch, the program cannot produce the proper print formats when the program is executed. The 
program is not transferable. 


The testing of the condition-name specified in the APPLY FORM-OVERFLOW clause must be deleted from the 
existing Procedure Division and must not be used in the USE FOR FORM-OVERFLOW procedure. An alternate 
method, instead of deleting the processing associated with the overflow condition-name, is to leave the testing of the 
condition-name as is and to use the USE FOR FORM-OVERFLOW procedure as a place to set the condition-name 
to the true state. 


The IBM mode! 1403 printer supports carriage-control channels 1 through 12. The UNIVAC 0768 Printer Subsystem 
supports carriage control channels 4 through 15 with both 14 and 15 signifying home paper. The COBOL-D carriage 
control references are translated as follows: 
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COBOL-D Control Carriage Control 
Character Punch 
1 home paper 15 
2 12 
3 13 
4 4 
5 5 
6 6 
7 7 
8 8 
9 9 
A 10 
B 11 
Cc form-overflow 9 


P.5. DISC FILE SUPPORT 


The following paragraphs detail considerations for conversion of COBOL source programs dealing with files assigned 
to direct access devices. 


To facilitate an understanding of the differences between the COBOL compilers, a clause-by-clause, verb-by-verb 
difference description follows, by file organization. 


P.5.1. Sequential Organization 


SELECT/ASSIGN clause 


The SELECT/ASSIGN clause requires a source program change to meet the format requirements of UNIVAC 
9400 COBOL. 


APPLY VERIFY clause (not availabe in COBOL-D) 


When in C-mode, the compiler automatically sets the verify function without regard to the APPLY clause 
present in the source program. 


LABEL RECORD definition 

In C-mode, the compiler accepts the LABEL RECORD definition in the Linkage Section. 

REWRITE verb 

In C-mode, the compiler accepts the REWRITE verb when the file is opened for !/O. 

INVALID KEY phrase 

When C-mode is active, the compiler causes transfer to the USE FOR ERROR procedure or initiates an 


end-of-job sequence when an INVALID KEY condition is detected and there is no INVALID KEY phrase 
specified. 
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P.5.2. tndexed Organization 


SELECT/ASSIGN clause 


The SELECT statement with its ASSIGN clause requires a source program change to meet the format 
requirements of UNIVAC 9400 


APPLY VERIFY clause (not available in COBOL-D) 
In C-mode, the compiler automatically sets the verify function without regard to the APPLY clause. 
APPLY MASTER-INDEX clause (not available in COBOL-D) 


The APPLY MASTER-INDEX clause must be added to the source program if the file is to be created with a 
master index. 


NOTE: 
COBOL-D specifies this option via the job control stream. 
APPLY CYLINDER-OVERFLOW clause (not available in COBOL-D) 


If this clause is not inserted into the source program, the compiler specifies that 20% of each prime data 
cylinder is to be reserved for cylinder overflow area. 


APPLY CYLINDER-INDEX AREA clause (not available in COBOL-D) 


If this clause is not specified in the source program, the compiler does not allocate main storage area to 
accommodate the cylinder index. 


APPLY EXTENDED-INSERTION AREA clause (not available in COBOL-D) 


When this APPLY clause is not specified, the compiler does not allocate additional main storage for efficient 
addition of records to an update file. 


RECORD KEY description 

In C-mode, the record key size must not be less than 3 nor greater than 255 bytes. 
SYMBOLIC KEY description 

In C-mode, the symbolic key size must not be less than 3 nor greater than 255 bytes. 
WRITE verb 


When the C-mode is active, the compiler accepts the WRITE verb for the INSERT function when the file is 
opened for I/O. 


INVALID KEY phrase 


When C-mode is active, the compiler causes transfer to the USE FOR ERROR procedure or initiates an end-of- 
job sequence when an invalid key condition is detected and there is no INVALID KEY phrase specified. 
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REWRITE verb 


In C-mode, the compiler accepts the REWRITE statement when the file is opened for 1/O. 


Error testing in USE FOR ERROR procedures 


Replace any calls on DTF interrogation subprograms by tests of SYSERR’s (defined in Special-Names 
paragraph) to determine error status. 


P.5.3. Direct Organization (Absolute Addressing) 


SELECT/ASSIGN clause 
The SELECT/ASSIGN clause must be rewritten to conform to the OS/7 COBOL format. 
APPLY RESTRICTED SEARCH clause 


In C-mode, the restricted search logic of COBOL-D is employed. Absence of this clause implies a search to end 
of cylinder. 


APPLY VERIFY clause (not available in COBOL-D) 


When C-mode is active, the compiler automatically sets the verify function without regard to the APPLY 
clause. 


APPLY FILE-PREPARATION clause (not available in COBOL-D) 
In C-mode, the compiler automatically sets the file preparation function without regard to the APPLY clause. 
LABEL RECORD definition 
In C-mode, LABEL RECORD definitions in the Linkage Section are accepted. 
ACTUAL KEY usage 
If conversion mode is specified, the compiler accepts a track address in the form: 
m bb cc hhr 
ACTUAL KEY description 


In UNIVAC 9400 C-mode, the ACTUAL KEY PICTURE must be changed to reflect the M, bb, cc, hh, r fields 
as decimal integer (packed) fields. 


SYMBOLIC KEY description 

The symbolic key length must not be less than 3 nor greater than 255 bytes when the C-mode is active. 
WRITE verb 

In C-mode, the compiler accepts the WRITE verb for the INSERT function when the file is opened for t/O. 
REWRITE verb 


When in C-mode, the compiler accepts the REWRITE statement when the file is opened for 1/0. 
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a INVALID KEY phrase 


ee 
In C-mode, the compiler causes a transfer to the USE FOR ERROR procedure or initiates an end-of-job 
sequence when an invalid key condition is detected and there is no INVALID KEY option. 
s Error testing in USE FOR ERROR procedures 
Replace the calls on DTF interrogation subprograms by SYSERR tests to determine error status. SYSERR’s 
are defined in the special-names paragraph. 
ee 
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Term 


ACCEPT, 
coding rules 
format of 
from job stream 
function of 
SYSCOM 
SYSCONSOLE 
SYSDATE 
SYSTIME 
SYSSWCH 
uses of 


Access Method, 
random 
sequential 


ACCESS MODE, 
Access Type 2 
Access Type 3 
Access Type 4 
Access Type 5 
Access Type 6 

Senge! Access Type 7 
in FILE-CONTROL 
RANDOM 
SEQUENTIAL 
uSe in file processing 


Access Mode Options 


ACCESS/ORGANIZATION, 
relationships 


Access Types 


ACTUAL KEY, 
Access Type 3 
Access Type 4 
Access Type 5 
in file organization 
in direct file processing 
in FILE-CONTROL 
SEEK 
use in file processing 


ADD, 
coding rules 
format of 
function of 
intermediate results of 


UNIVAC 9400 COBOL 


Reference 


6.7.1 

6.7.1 

L.2 

6.7.1 

L.7 

4.2.3, L~3 
L.4 

L.5 

L.6 

L.1 


D.3.2 
D.3.1 


D.6.2.1 
D.6.3.1 
D.6.2.2 
D.6.3.2 
D.6.4.1 
D.6.4.2 
4.3.1 
D.2.1 
D.2.2 
D.3 


D.5.2.2 


D.6 


D.4 


D.4.3 

D.4.4, 

D.4.5, D.5.3.2 
D.2 

D.6.3 

4.3.1 

6.7.27 

D.5.1, D.5.2 


6.7.2 
6.7.2 
6.7.2 
H.2 


SUPPLEMENTARY REFERENCE 


Page 


oe eh ee 
alLotbtoo 
r 
( 
rN) 


Fea oe 
pb ww 


Fou OoO Oo C9 9 
BO te ee a 
ee e Or AN 
Pwr Oo 


o oo 9 
Ses 


7 
a 


6-11 
6-10 
6-10 
H-1 


Term 


AFTER 


ALL, 
EXAMINE 
figurative constant 


Alphabetic Test 


ALTER, 
coding rules 
format of 
function of 
GO TO 
segmentation 


ALTERNATE AREA 


AND 


APPLY, BLOCK-COUNT 
BLOCK-COUNT 
CYLINDER-!INDEX 
CYLINDER OVERFLOW AREA 
EXTENDED-!INSERTION 
FILE PREPARATION 


APPLY RESTRICTED SEARCH, 
in l-O-CONTROL 
to specific number of tracks 


APPLY VERIFY 


Arithmetic Operations 


Arithmetic Verbs, 
ADD 
coding rules 
COMPUTE 
DIVIDE 
function of 
MULTIPLY 
options of 
SUBTRACT 


ASCENDING 


ASCII, 
processing 
TRANSFORM 


ASS!GN 


Reference Page 

6.7.21 6-32 aif 
6.7.12 6-19 ~~ 
2.2.2 2-6 

6.7.15 6—26 ~< 
6.7.3 6-11 

6.7.3 6-11 

6.7.3 6-11 

7.4.1, 6.7.14 7-2, 6-20 ~e 
7.4.1 7-2 

D.6.2 D-—7 

6.7.15 6~23 + 
4.3.2 4—11 

4.3.2, 0.5.2 4-11, D-4 
4.3.2, 0.5.2 4-11, D-4 
4.3.2, D.5.2 4—11, D—4 
4.3.2, D.5.2 4-11, D—4 
4.3.2 4~—11 

D.6.3, D.6.3.2 D—9, D-11 
4.3.2 4~11 

2.1.4 2~3 

6.7.2 6-10 

6.6.1 6-6 

6.7.6 6-13 

6.7.9 6-16 

6.6.1 6-6 

6.7.18 6-30 ~<+ 
6.6.1 6-7 

6.7.31 6-45 << 
6.7.29 6~42 <_ 
Appendix N 

6.7.32 6-46 ~ 
4.3.1 4-6 
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Term 


AT END 
in file processing 
READ 
RETURN 


ATTENTION KEY 


AUTHOR 


BEGINNING 


BLANK WHEN ZERO, 
coding rules 
format of 
function of 
in data description 


BLOCK CONTAINS, 
coding rules 
format of 
function of 
in File Description 


BLOC K-LENGTH-CHECK 


Block Size Ranges 


Braces 


Brackets 


BUFFER-OFFSET 


BY 
C-mode 


CALL, 
coding rule 
ENTER 
format of 
function of 
interface with ENTRY 
transfer of control 


CALLed Programs, 
coding for 
transfer of control to 


CALLing Programs, 
coding for 


transfer of contro! from 


CHANGED 






UNIVAC 9400 COBOL 


SUPPLEMENTARY REFERENCE 


Reference Page 
D.7 D-13 
6.7.22 6-37 
6.7.24 6-39 
L.3 L-2 
3.1 3-1 
6.7.33 6—46b 
5.3.9 5-21 
5.3.9 5-21 
5.3.9 5-21 
5.3 5—10 
5.2.1.1. 5-4 
5.2.1.1. 5-4 
5.2.1.1 5-4 
5.2.1 5-3 
N.13 N-3 
5.2.1.1 5-4 
1.2 1-2 
1.2 1-2 
N.13 N-3 
6.7.21 6-32 
P.1 P-1 
6.7.4 6-12 
6.7.10 6-17 
6.7.4 6-12 
6.7.4 6-12 
F.4 F~2 
F.1 F-1 
F.2 F-4 
F.1 F-1 
F.2 F-3 
F.1 F-1 
See EXHIBIT 


Tem 


CHARACTERS, 
in File Description 
OBJECT-COMPUTER 
TRANSFORM 


Character-string, 
NOTE 
PICTURE 


Character Set, COBOL, 
definition of 
in arithmetic operators 
in editing 
in punctuation 
in relational expressions 
in words 
uses of 


Character Set, system 


Checkpoint Record 


Checkpointing 


Class Condition, 
definition of 
format of 


CLOSE, 
coding rules 
format of 
function of 
OPEN 
READ 


COBOL Programming Form, 
column usage 
description of 
Collation Sequence 
Columns, on programming form 
Comment 
Comment-entry 
COMP 
Compiler, basic 
copy fibrary input 
minimum system configuration for 


options 
source library input 





Reference Page 
§.2.1.1 5-4 
4.2.2 4~2 
6.7.32 6—46 
6.7.19 6-30 
9.3.4 5-12 
2.1 2-1 
2.1.4 2-3 
2.1.5, 5.3.4 2-3, 5-13 
2.1.2 2-2 
2.1.3 2~2 
2.1.1 2-2 
2.1 2-2 
A.l A-1 
4.3.2 4—11 
0.3 O-1 
6.7.15 6—26 
6.7.15 6-26 
6.7.5 6~12 
6.7.5 6-12 
6.7.5 6-12 
6.7.20 6—31 
6.7.22 6-37 
2.5 2-9 
2.5 2-8 
2.1 2-1 


See COBOL Programming Form 


2.5 2-9 


3.1 3~1 


See COMPUTATIONAL 


C.2 C-2 
1.3 1-2 
1.4 1-3 
C.2 C2 
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Term 


Compiler, extended 
copy library input 
features 
minimum system configuration for 
options 
rules for SPECIAL-NAMES 
source /ibrary input 


Compiler-directing Statements, 
CALL 
coding rules 
definition of 
description of 
ENTER 
format 
in DECLARATIVES 
NOTE 
USE 


Compiler, listings 
Data Division storage map 
external references 
object code listing 
Procedure Division storage map 


Compiler, options 
copy library input 
list 
object module version 
output 
revision number 
source library input 


COMPUTATIONAL 


COMPUTE, 
coding rules 
format of 
function of 


Condition, 
compound 
simple 
types of 


Condition-name, 
coding rules 
definition of 
examples of 
format of 
function of 
in data description 


Condition-name Condition, 
definition of 
format of 


UNIVAC 9400 COBOL 
SUPPLEMENTARY REFERENCE 


Reference 


C.3 

E.1, 9.3.6 
1.3 

1.4 

4.2.3 

C.3 


6.7.4 
6.5.3 
6.5.3 
6.6.7 
6.7.10 
6.5.3 
6.2 
6.7.18 
6.7.33 


K.2 
K.4 
K.4 
K.3 


G.5 
G.2 
G.6 
G.3 
G.6 
G.4 


5.3.5 


6.7.6 
6.7.6 
6.7.6 


6.5.2 
6.5.2 
6.7.15 


5.3.11 
2.2.1 
5.3.11 
5.3.11 
9.3.11 
5.3 


6.7.15 
6.7.15 


6-13 
6-13 
6-13 


Term 


Conditionai Expression, 
compound 
simple 
use of 


Conditional Statements, 
coding rules 
definition of 
format of 


Conditional Variable, 
conditional-name condition 
definition of 


Conditional Verb, 
description of 
tF 


CONFIGURATION SECTION, 
definition of 
format of 
in Environment Division 


Connectives 


Continuation 


Conversion mode 
Data Division 
disc file support 
Environment Division 
Identification Divison 
operation 
printer file support 
Procedure Division 
reserved words 
syntax 


COPY, 
COBOL library 
coding rules 
formats of 
function of 


Copy Library Input 
CORRESPONDING, 

ADD 

data item requirements 

MOVE 

SUBTRACT 
CURRENCY 


CYLINDER-INDEX 


Reference 


6.5.2 
6.5.2 
6.6.6 


6.5.2 
6.5.2 
6.5.2 


6.7.15 
2.2.1 


6.6.6 
6.7.15 


4.2 
4.2 
4.1 


2.2.2 


2.5 


P.3.3 
P.5 
P.3.2 
P.3.1 
P.2 
P.4 
P.3.4 
P.3.5 
P.3 


10.2 
6.7.7 
6.7.7, 10.2 
6.7.7 


6.7.2 
6.6.1 
6.7.17 
6.7.31 


4.2.3 


See APPLY 


10-1 
6-14 
6-14, 10-2 
6-14 
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SUPPLEMENTARY REFERENCE 


Term Reference Page 
CYLINDER OVERFLOW AREA See APPLY 
Data Description, 
format of 5.3 5-10 
function of 5.3 5-10 
DATA DIVISION, 
coding rules 5.1 5-1 
conversion mode P.3.3 P-6 
description of 5.1 5-1 
general format of 5.1 5-1 
Data Items, 
allowable sizes 5 tok 5-2 
treatment of F.2 F-1 
Data Management, 
in file processing techniques D.5.2 D-4 
interface with COBOL compiler [Il I-1 
Data Movement Verbs, 
description of 6.6.3 6-8 
EXAMINE 6.7.12 6-19 
MOVE 6.7.17 6-28 
SET 6.7.28 6-40d 
Data-name, 
definition of 2.2.1 2-4 
unqualified 2.2.1 2-4 


Data Organization 


DATA RECORD, 


See File Organization 


coding rules 5.2.1.6 5-8 

format of 5.2.1.6 5-8 

function of 5.2.1.6 5-8 

in File Description 5.2.1 5-3 

in Sort File Description 5.2.2, 9.3.2 5-9, 9-2 

RELEASE 6.7.23 6-38 
DATA-COMPILED 3.1 3-1 
DATE-WRITTEN 3.1 3-1 
DEBUG M.5 M—4 
Debugging, 

language M.1 

packet M.5 M~4 
DESCENDING 6.7.29 6-42 
Decimal! Point Alignment 6.6.1 6-7 
DECIMAL-POINT IS COMMA 4.2.3 4-3 


Term 


DECLARATIVES, 
coding rules 
format of 
function of 
in Procedure Division 


DEPENDING ON 


DIRECT 


Direct Access, 
devices 
files 


Direct File Processing 


Direct Indexing 


Disc Control Statements 
indexed sequential 
relative 
sequential 


Disc file support 
description 
direct organization 
indexed organization 
sequential organization 


DISPLAY, 
ALL 
coding rules 
format of 
function of 
SYSCOM 
SYSCONSOLE 
SYSDATE 
SYSLIST 
SYSSWCH 
SYSSWCH-n 
SYSTIME 
USAGE 


DIVIDE, 
coding rules 
format of 
function 

DOWN BY 


EBCDIC 


Editing 







Reference 


6.2 
6.2 
6.2 
6.1 


6.7.14 


4.3.1 


D.1 
D.1 


D.5.3 


8.5 


1.7 
1.6 
1.5 


P.5 
P.5.2. 
P.5.3 
P.5.1 


2.2.2 
6.7.8 
6.7.8 
6.7.8 
L.11 
4.2.3, L.8 
4.2.3 
L.12 
L.9 
L.10 
4.2.3 
5.3.5 


6.7.9 
6.7.9 
6.7.9 
6.7.28 


6.7.32 


2.1.5 


Page 


6-16 
6-16 
6-16 


6—40d ee 
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Term 


Ellipsis 


ELSE 


END DECLARATIVES 


Ending Verb, 
description of 
STOP 
USE 


ENTER, 
CALL 
coding rules 
format of 
function of 
subprogram communication 


ENTRY 


ENVIRONMENT DIVISION, 
conversion mode 
general format 


EQUALS 


Error Checking 


ERROR PROCEDURE 


EXAMINE, 
ALL 
coding rules 
format of 
function of 
TALLY 


EXCEEDS 


EXHIBIT 
format of 
function of 
coding rules 
NAMED 
CHANGED 


EXIT, 
coding rules 
format of 
function of 
PERFORM 


EXIT PROGRAM 


EX TENDED-INDEX 


UNIVAC 9400 COBOL 
SUPPLEMENTARY REFERENCE 


Reference 


1.2 


6.7.15 


6.2 


6.6.5 
6.7.30 
6.7.33 


6.7.4 
6.7.10 
6.7.10 
6.7.10 
F.l 


F.4 


P.3.2 
4.1 


6.7.15 


6.7.33 


6.7.33 


2.2.2 
6.7.12 
6.7.12 
6.7.12 
2.2.2 


6.7.15 


M.4 
M.4 
M.4 
M.4 
M.4 


6.7.13 
6.7.13 
6.7.13 
6.7.21 


6.7.10 


See APPLY 






6-9 
6~44 
6—-46b 


6-12 
6-17 
6-17 
6~17 
F~1 


Term 


External-name, 
definition of 


FD 
Figurative Constants 
FILE 


FILE-CONTROL, 
coding rules 
format of 
function of 
in Input-Output Section 


FILE-LIMIT 


File processing Techniques, 
definition of 
direct 
indexed 
relative 
sequential 


File Description, 
coding rule 
format of 
function of 


File Description Entry 
File Organization 
direct 
indexed 
relative 


sequential 
types of 


FILE PREPARATION 


FILE SECTION, 
description of 
general format of 
in Data Division 


FILLER 
FIRST 


FIVOFF 
FIVON 
Fixed-length Format 


Fixed Portion 


SECTION: 





Index 


Reference Page 


2.2.1 2-4 


See File Description 


2.2.2 2~6 
6.7.33 6—46b 
4.3.1 4-9 
4.3.1 4-8 
4.3.1 4-8 
4.3 4-6 
4.3.1 4-8 
D.6 D~6 
D.6.3 D-9 
D.6.4 D-12 
D.6.2 D-7 
D.6.1 D-6 
5.2.1 5-3 
5.2.1 5-3 
5.2.1 5~3 
5.2 5~2 
D.2.3 D—2 
D.2.4 D-2 
D.2.2 D-1 
D.2.1 D-1 
D.2 D~—1 
See APPLY 

5.2 5~2 
5.2 5-3 
5.1 5-1 
5.3 5-10 
6.7.12 6-19 
4.3.1 4-8 
4.3.1 4-8 
5.2.1.4 5-7 


See Segmentation 
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Tem 


FORM-OVERFLOW 


FROM, 
ACCEPT 
PERFORM 
RELEASE 
SUBTRACT 
WRITE 


Generic Terms 


GIVING, 
ADD 
arithmetic statements 
DIVIDE 
MULTIPLY 
SORT 
SUBTRACT 


GO TO, 
ALTER 
coding rules 
format of 
function of 
segmentation 


Hierarchy 
HIGH-VALUE (HIGH-VALUES) 


IDENTIFICATION DIVISION, 
character set in 
coding rules 
conversion mode 
general format 


Identifier 


IF, 
coding rules 
format of 
function of 
in conditional statements 


Imperative Statements, 
coding rules 
definition of 
format of 


iImptementor-name 


IN 
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Reference 


6.7.33 


6.7.1 

6.7.21 
6.7.23 
6.7.31 
6.7.34 


1.2 


6.7.2 
6.6.1 
6.7.9 
6.7.16 
6.7.29 
6.7.31 


6.7.3, 7.4.1 
6.7.14 
6.7.14 
6.7.14 
7.4.1 


2.3 
2.2.2 
2.1 
3.1 


P.3.1 
3.1 


2.2.1 


6.7.15 
6.7.15 
6.7.15 
6.5.2 


6.5.1 
6.5.1 
6.5.1 
4.3.1 


2.2.2, 2.3 


Page 
6—46b 


6-9 

6-32 
6-38 
6—45 
6~48 


1~2 


6-10 
6-7 

6-16 
6-30 
6-42 
6-45 


6-11, 7~2 
6-21 

6-20 
6-20 

7-2 


2-7 


wo™ywwn 
iy dod 
“wm nN 


Tem 


Independent Entries, 
coding rules 
format of 
function of 


Independent Segments 


INDEX 


Index-name, 
definition of 
displacement formula for 
in relation condition 
internal format of 
SET 


Index Data-item, 
definition of 
in relation condition 
internal format of 
SET 


INDEXED BY, 
defined by index-name 
in data description 
OCCURS 
SET 


Indexing, 
definition of 
rules of 


Indexing Tables, 
coding rules 
definition of 
format of 
specifying occurrence numbers 


INPUT, 
OPEN 
USE 


INPUT-OUTPUT SECTION, 
definition of 
general format 


Input/Output Verbs, 
ACCEPT 
CLOSE 
description of 
DISPLAY 


SECTION: 





Index 


Reference 


5.4.1 
5.4.1 
5.4.1 


PAGE: 


Page 


5-24 
5-24 
5-24 


See Segmentation 


5.3.5 


2.2.1 

6.7.28 
6.7.15 
6.7.28 
6.7.28 


2.2.1 

6.7.15 
6.7.28 
6.7.28 


2.2.1 
5.3 
5.3.3 
6.7.28 


2.4 
2.4 


8.5 
8.5 
8.5 
8.3 


6.7.20 
6.7.33 


4.3 
4.3 


6.7.1 
6.7.5 
6.6.4 
6.7.8 


5~17 


2-5 
6—42 
6-24 
6-42 
6-—40d 


2-5 
6—24 
6—42 
6—40d 


2-5 
5-10 
5-12 
6—40d 
















UP-7709 
Rev. 2 


Term 


INSERT 
OPEN 
READ 
RELEASE 
RETURN 
SEEK 
SORT 
WRITE 


INPUT PROCEDURE, 
in sort operations 
SORT 


INSERT, 
Access Type 4 
Access Type 5 
Access Type 7 
format of 
function of 


INSTALLATION 


Intermediate Result Areas 


INTO, 
READ 
RETURN 


I-0, 
OPEN 
USE 


|-O-CONTROL, 
coding rules 
format of 
function of 
in Input-Output Section 


INVALID KEY, 
is file processing 
INSERT 
use of 
WRITE 


Job Control 


Job Control Stream 


JUSTIFIED, 
coding rules 
format of 
function of 
in data description 


Reference 


6.7.16 
6.7.20 
6.7.22 
6.7.23 
6.7.24 
6.7.27 
6.7.29 
6.7.34 


9.2 
6.7.29 


D.6.2.2 
D.6.3.2 
D.6.4.2 
6.7.16 
6.7.16 


5.1 


H.1 


6.7.22 
6.7.22 


6.7.20 
6.7.33 


4.3.2 
4.3.2 
4.3.2 
4.3 


D.7 
6.7.15 
4.3.2 
4.3.2 


4.3.2 


5.3.7 
5.3.7 
5.3.7 
5.3 
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Page 


D-8 
D-11 
D-14 
6-27 
6—27 


4-12 
4-11 
4-11 
4-8 


D-15 
6-26 
4-12 
4-12 


5-19 
5-19 
5-19 
5-10 


Tem 


KEY, 
in sort operation 
SORT 


Key Clauses 


Key Words, 
definition of 
use of 


Label Checking 


LABEL PROCEDURE 


LABEL RECORDS, 
checking 
coding rules 
format of 
function of 
in File Description 
USE 


Label Writing 


LEADING 


Level-number, 
coding rules 
format of 
function of 
in data description 


LIBRARY, 
Library-name 


Linkage Section, 
coding rules 
definition of 
in Data Division 
Linker, considerations 
Linking 
LOCK 
Logical Operators, 
condition combinations with 
condition relationships 


LOW-VALUE (LOW-VALUES) 


MAP IS 


SECTION: 


Index 


Reference 


9.2 
6.7.29 


D.S 
2.2.2 
1.2 
6.7.33 
6.7.33 
5.2.1.3 
5.2.1.3 
5.2.1.3 
5.2.1.3 
5.2.1 
6.7.33 


6.7.33 


6.7.12 


5.3.1 
5.3.1 
5.3.1 
5.3 
10.2 
6.6.7 


5.5 
5.5 
5.1 


F.3 


6.7.5 


6.7.15 
6.7.15 


2.2.2 


5.3 


5—11 
5~11 
5~11 
5-10 


5-25 
5~25 
5~1 
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Term 


MAST ER-INDEX 


MEMORY SIZE, 
allowable 
OBJECT-COMPUTER 


MODULES 


Module/Level Implementation 


MORE-LABELS 


MOVE, 
coding rules 
compiler handling of SPECIAL- 
NAMES 
format of 
function of 
index data items 
sending and receiving fields 


MULTIPLE FILE 


MULTIPLE REEL/UNIT 


MULTIPLY, 
coding rules 
format of 
function of 


NAMED 
NEXT SENTENCE 
Nonnumeric Literal, 
CURRENCY 
definition of 
Nonnumeric Operand 
NO 
NO REWIND, 
CLOSE 
OPEN 
NOT 
NOTE, 
coding rules 


format of 
function of 


Reference 


See APPLY 


5.1.1 
4.2.2 


4.2.2 


1.3 


6.7.14 


6.7.17 


4.2.3 


6.7.17 


6.7.17 


2.2.1 


6.7.17 


4.3.2 


4.3.1 


6.7.18 


6.7.18 


6.7.18 


See EXHIBIT 


6.7.15 


4.2.3 


2.2.1 


6.7.15 


4.3.1 


6.7.5 


6.7.20 


6.7.15 


6.7.19 


6.7.19 
6.7.19 
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Page 


4-5 
6~28 
6—28 
2-5 

6~29 


6-30 
6-30 
6-30 


6-12 
6—31 


6-31 
6-30 
6-30 


Term 


Numeric Literal 


Numeric Operand 


Numeric Test 


OBJECT-COMPUTER, 
coding rules 
format of 
function of 
in Environment Division 


Object-time Diagnostics 


OCCURS, 
coding rules 
format of 
function of 
in data description 
indexing 
REDEFINES 
RENAMES 
subscripting 
table handling 
VALUE 


OF 


OFF STATUS 


OMITTED 


ON SIZE ERROR, 
ADD 
COMPUTE 
DIVIDE 
in arithmetic statements 
MULTIPLY 
SUBTRACT 


ON STATUS 


OPEN, 
CLOSE 
coding rules 
format of 
function 
in sequential data organization 
READ 
WRITE 


Operands 


SECTION: 


Index 


Reference 


2.2.1 


6.7.16 


6.7.16 


4.2.2 
4.2.2 
4.2.2 
4.1 


8.6 


5.3.3 
5.3.3 
5.3.3 
5.3 
8.5 
5.3.2 
5.3.10 
8.4 
8.2 
5.3.8 


2.2.2, 2.3 


4.2.3 


5.2.1.3 


6.7.2 
6.7.6 
6.7.8 
6.6.1 
6.7.18 
6.7.31 


4.2.3 


6.7.5 

6.7.20 
6.7.20 
6.7.20 
D.2.1 

6.7.22 
6.7.34 


6.7.15 
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Term 


OPTIONAL 
Optional Words 
OR 


ORGANIZATION, 
Access Type 2 
Access Type 3 
Access Type 4 
Access Type 5 
Access Type 6 
Access Type 7 
in direct file organization 
in FILE-CONTROL 
in indexed file organization 
in relative file organization 
in sequential file organization 
use of 


OUTPUT, 
OPEN 
USE 


OUTPUT PROCEDURE, 
in Sort operation 
SORT 


Paragraphs, 
coding rules 
definition of 
format of 
in Procedure Division 


Patching 


PERFORM, 
coding rules 
EX!T 
format of 
function of 
logic of 
segmentation 


PICTURE, 
coding rules 
CURRENCY 
DECIMAL. POINT |S COMMA 
determining data type 
format of 
function of 
in Data Division 
in single-item areas 
SPECIAL-NAMES 
arithmetic operands 


UNIVAC 9400 COBOL 
SUPPLEMENTARY REFERENCE 


Reference 


4.3.1 


2.2.2 


6.7.15 


D.6.2.1 
D.6.3.1 
D.6.2.2 
D.6.3.2 
D.6.4.1 
D.6.4.2 
D.2.3, D.6.3 
4.3.1 

D.2.4, D.6.4 
D.2.2, D.6.2 
D.2.1, D.6.1 
D.5.1 


6.7.20, D—6 
6.7.33 


9.2 
6.7.29 


6.4 
6.4 
6.4 
6.1 


6.7.21 
6.7.13 
6.7.21 
6.7.21 
6.7.21 
7.4.2 


5-3.4 
4.2.3 
4.2.3 
§.1.1 
5.3.4 
5.3.4 
5.3 

5.4.1 
4.2.3 
6.6.1 


RS io ae en 
re ees 
beet 
iw) 
| 
wo 


I ot 
women 
7 - 


oo 0 9 


6-31, D-6 
6—46b 


5-13 
4-3 
4-3 
5-2 
5-13 
5-13 
5~10 
5-24 
4-3 
6-7 


Term 


USAGE 
VALUE 


Picture-string 
PICTURE Symbols, 
precedence of 
usage rules 


Presentation, rules of 


Printer file support 


Printer Form-Overflow 


Priority 


Priority-number 


Procedure Branching Verbs, 
ALTER 
description of 
GO TO 
PERFORM 


PROCEDURE DIVISION, 
character set in 
conversion mode 
definition of 
format of 


Procedure-name 
PROCEED TO 
PROCESSING MODE 
PROGRAM-ID, 
character set in 
coding rules 
ENTER 
format of 
USING 
Punctuation 
Qualification, 
definition of 
rules of 
Qualifier 


QUOTE (QUOTES) 


Random Access 


Reference Page 
5.3.5 5-18 
5.3.8 5-21 
5.3 5-10 
5.3.4 5~16 
5.3.4 5-15 
1.2 1-1 
P.4 P~14 = ~<etfeomn 
6.7.33 6—46b 
6.7.21 6-36 
7.3 7-1 
6.7.3 6~-11 
6.6.2 6-8 
6.7.14 6~—20 
6.7.21 6-32 
2.1 2-2 
P.3.4 P-8 < 
6.1 6-1 
6.1 6-1 
2.2.1 2-4 
6.7.3 6-11 
4,3.1 4-8 
2.1 2-2 
3.1 3-1 
6.7.11 6-18 
3.1 3-1 
6.1.1 6-2 
2.1.2 2-2 
2.3 2-7 
2.3 2-7 
2.3 2-7 
2.2.2 2-6 


See Access Methods 
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Term 


READ, 
Access Type 2 
Access Type 3 
Access Type 4 
Access Type 5 
Access Type 6 
Access Type7 
coding rules 
format of 
function of 
OPEN 
verification of 


READY TRACE 


Receving Fields, 
categories of 
examples of 


RECORD CONTAINS, 
coding rules 
format of 
function of 
in File Description 
in Sort File Description 


Record Description, 
coding rules 
format of 
function of 


Record Description Entry 


RECORD KEY, 
Access Type 7 
error conditions 
format of 
ORGANIZATION IS INDEXED 


Record Size Ranges 


RECORDING MODE, 
coding rules 
format of 
function of 
in File Description 
in file processing 
in Sort File Description 


RECORDS 
REDEFINES, 


coding rules 
format of 







Reference 


0.6.2.1 
D.6.3.1 
D.6.2.2 
D.6.3.2 
D.6.4.1 
D.6.4.2 
6.7.22 
6.7.22 
6.7.22 
6.7.20 
4.3.2 


M.2 


6.7.17 
5.3.4 


5.2.1.2 
5.2.1.2 
5.2.1.2 
5.2.1 
5.2.2, 9.3.2 


5.4.2 
5.4.2 
5.4.2 


5.2 


D.6.4.2 

D.7 

4.3.1 

D.2.4, D.5.1 
D.6.4 


5.2.1.2 


5.2.1.4 
5.2.1.4 
5.2.1.4 
5.2.1 

D.6.1, D.6.2 
5.2.2, 9.3.2 


5.2.1.1 


5.3.2 
5.3.2 


UNIVAC 9400 COBOL 
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vu 

a 
a 

() 


! 
° 


1 ot 
mw ww w 
oe Sb Nos ee ce 


D-14 
D-15 

4-8 

p=2, 0-3; 
p12 


5-11 
5-11 


Term 


function of 
in data description 
VALUE 


REEL, 
CLOSE 
USE 


Relation Condition, 
definition of 
format of 


Relational-operator 


Relational Expression, 
characters used in 
in conditional expression 


RELATIVE 


Relative Indexing 


RELATIVE KEY, 
in FILE-CONTROL 
in relative file organization 
key clause usage 


RELEASE, 
coding rules 
format of 
function of 


in creating sort file 
in sort operation 


REMARKS 


RENAMES, 
coding rules 
format of 
function of 
identifying entries for 
in data description 


REPLACING 
EXAMINE 
COPY 


RERUN, 
description of 
in !-O-CONTROL 
SELECT 


RESERVE 


SECTION: 


Index 





Reference 


5.3.2 
5.3 
5.3.8 


6.7.5 
6.7.33 


6.7.15 
6.7.15 


6.7.15 


2.1.3 
6.5.2 


4.3.1, D.2.3 


8.5 


4.3.1 
D.2.2 
D.5.1 


6.7.23 
6.7.23, 9.3.3 
6.7.23 


6.7.29 
9.2, 9.3.3 


3.1 


5.3.10 
5.3.10 
5.3.10 
5.3.1 
5.3 


nm 
“s™N 
SNR 


Appendix 0 
4.3.2 
4.3.1 


4.3.1 
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Page 


5-11 
5-10 
5-20 


6-12 
6-46b 


6-24 
6-24 


6-23 


6-38 
6~38, 9-3 
6-38 

6-43 

9~1, 9-3 


5-22 
5~22 
5-22 
5-11 
5-10 


6-19 
6-14 


4-11 
4-8 
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Tem 


Reserved words 
conversion mode 
listing 


RESET TRACE 


Restarting 


RETURN, 
coding rules 
ENTER 
format of 
function of 
in creating sort file 
in Sort File Description 
in sort operation 


REVERSED 


REWRITE 


ROUNDED, 
ADD 
COMPUTE 
DIVIDE 
in arithmetic statements 
MULTIPLY 
SUBTRACT 


RUN 


SAME AREA 


SAME RECORD AREA 


sD 


SEARCH 


SECTION, 
coding rules 
format of 
function of 
in Procedure Division 
in segmentation 


SEEK, 
coding rules 
format of 
function of 
READ 
WRITE 


SECURITY 
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Term 


Segmentation, 
ALTER 
fixed portion 
general discussion 
independent segments 
overlayable segments 
PERFORM 
priority of 
Program organization 
restrictions on program flow 


6.7.24, 9.3.4. 6~38, 9-3 SEGMENT-LIMIT 


Reference Page 
P,3.5 P-13 
B.1 B-1 
M.3 M—2 
0.4 O-2 
6.7.24 6-38 
6.7.10 6-18 
6.7.24 6-38 
6.7.29 6-43 
5.2.2 5-9 
9.2, 9.3.4 9-1, 9-3 
6.7.20 6—31 
6.7.15 6~22 
6.7.2 6-10 
6.7.6 6-13 
6.7.9 6-16 
6.6.1 6-7 
6.7.18 6-30 
6.7.31 6-45 
6.7.30 6-44 
4.3.2 4-11 
4.3.2 4-11 


See Sort File Description 


6.7.26 6-40 
6.3 6-3 
6.3 6-3 
6.3 6-3 
6.1 6-1 
7.3 7-1 
6.7.27 6—40d 
6.7.27 6-40c 
6.7.27 6—40c 
6.7.22 6-37 
6.7.34 6-48 
3.1 3-1 


SELECT 
in FILE-CONTROL 
sort file 


Sending Field 


Sentence, 
definition of 
format of 


Sequence Number 


SEPARATE 


SEQUENTIAL 


Sequential Access 


SET, 
coding rules 
format of 
function of 
Index data item 
index-names 
UPSI switches 


SIGN 


Sign Condition, 
definition of 
format of 


SKIP 


SORS 


SORT, 
coding rules 
format of 
function of 
in Sort File Description 
in sort operations 
RETURN 


Index 


SECTION: 
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Reference Page 
7.4.1 7-2 
7.4.2 7-2 
7.2.1 7-1 
7.1 7-1 
7.2.2 7-1 
7.4.1 7~2 
7.3 7-1 
7.2 7-1 
7.4 7-2 
4.2 4—1 
4.3.1 4~8 
9.3.1 9-2 
6.7.17 6-29 
6.5 6—4 
6.5 6-4 
2.5 2-9 
see SIGN 


See ORGANIZATION 


See Access Method 


6.7.28 6-41 
6.7.28 6—40d 
6.7.28 6—40d 
5.3.5 5-18 
2.2.1, 8.5 2-5, 8-3 
4.3.1 4-8 
5.3.13 5-24 
6.7.15 6-26 
6.7.15 6~26 
4.3.1 4-8 

C.1 C-1 
6.7.29 6-42 
6.7.29, 9.3.5 6-42, 9-3 
6.7.29 6-42 
5.2.2, 9.3.2 5-9, 9~2 
9.2, 9.3.5 9-1, 9-3 


6.7.24 6-38 
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Term 


SORT Feature, 
description of 
in extended compiler 


Sort File 


Sort File Description, 
coding rules 
format of 
function of 
in File Description 


Sort Operations 


Sort Statements, 
RELEASE 
RETURN 
SELECT 
SORT 


SOURCE-COMPUTER, 
coding rule 
format of 
function of 
in Environment Division 


Source Field 


Source Library Input 


SPACE (SPACES), 
elementary item category 
figurative constant 


SPECIAL-NAMES, 
ACCEPT 
coding rules 
compiler handling of 
DISPLAY 
format of 


function of 
in Environment Division 


STANDARD 


Statement 


STOP, 
ALL 
coding rules 
format of 
function 










Reference 


9.1 
9.3.6 


9.2 


5.2.2 
5:2.2;: 9.3.2 
5.2.2 
52s h 


9.2 


6.7.29, 9.3.3 
6.7.29, 9.3.4 
4.3.1, 9.3.1 
6.7.29, 9.3.5 


4.2.1 
4.2.1 
42.1 
4.1 


5.3.4 


C.1 


6.7.17 
2.2.2 


6.7.1 
6.7.7 
4.2.3 
4.2.3 


4.2.3 
4.2.3 
4.1 


5.2.1.3 


6.5 


2.2.2 

6.7.30 
6.7.30 
6.7.30 
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6-43, 9-3 
6-43, 9-3 
4—8, 9-2 
6.43, 9-4 


2-6 

6~44 
6-44 
6-44 


Term 


Subscripting, 
coding rules 
definition of 
format of 
specifying occurence numbers 


SUBTRACT, 
coding rules 
format of 
function of 
intermediate results of 


Supervisor Control Program 


Switch-status Condition, 
definition of 
format of 


Symbol 


SYMBOLIC KEY, 
Access Type 3 
Access Type 5 
Access Type 6 
Access Type7 
in direct file organization 
in direct file processing 
in FILE-CONTROL 
in indexed file organization 


SYNCHRONIZED, 
coding rule 
format of 
function of 
in data description 


SYSCHAN-t, 
channel identification in WRITE 
in SPECIAL-NAMES 


SYSCOM, 
ACCEPT 
DISPLAY 
in SPECIAL-NAMES 


SYSCONSOLE, 
ACCEPT 
DISPLAY 
in SPECIAL-NAMES 


SYSDATE, 
ACCEPT 
in SPECIAL-NAMES 


12 


Reference Page 
2.4, 8.4 2-8, 8-2 
2.4, 8.4 2-8, 8-2 
8.4 8-2 
8.3 8-2 
6.7.31 6-45 
6.7.31 6--45 
6.7.31 6-45 
H.2 H-1 
C.l C-1 
6.7.15 6-26 
6.7.15 6-26 
See PICTURE Symbols 
0.6.3.1 D-10 
D.6.3.2 D-11 
D.6.4.1 D-13 
D.6.4.2 D-14 
0.6.3.2 D-i1 
0.5.3 D-7 
4.3.1 4-8 
D.2.4, 0.5.1 D-2, D-3 
5.3.6 5-19 
5.3.6 5~19 
5.3.6 5—19 
5.3 5-10 
6.7.34 6-49 
4.2.3 4-6 
6.7.1 6-10 
6.7.7 6-14 
4.2.3 4-6 
6.7.1 6-10 
6.7.7 6-14 
4.2.3 4-6 
6.7.1 6-10 
4.2.3 4-6 
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Swe” 








Term 


SYSERR, 
ACCEPT 
error conditions in 
in SPECIAL-NAMES 


SYSERR-m 


SYSERR-n 


SYSLST, 
DISPLAY 
in SPECIAL-NAMES 


SYSRES 


SYSSWCH, 
ACCEPT 
DISPLAY 
in SPECIAL-NAMES 


SYSSWCH-n, 
DISPLAY 
in SPECIAL-NAMES 


SYSTIME, 
ACCEPT 
in SPECIAL-NAMES 


Table Elements 


Table Handling, 
defining a table 
dimensions 
general discussion 
indexing 
OCCURS 
searching 
subscripting 
table reference 


TALLY 
TALLYING 
TAPE 
THRU 
TIMES 


TRAILING 


UNIVAC 9400 COBOL 


SUPPLEMENTARY REFERENCE 


Reference 


6.7.1 
D.7 
4.2.3 


4.2.3 


4.2.3 


6.7.8 
4.2.3 


C.1 


6.7.1 
6.7.8 
4.2.3 


6.7.8 
4.2.3 


6.7.1 
4.2.3 


8.2 


8.2 
8.2 
8.1 
8.3 
8.2 
8.6 
8.3 
8.3 


2.2.2 


6.7.12 


4.3.2 


6.7.21 


6.7.21 


9.3.13 


Page 


6-10 
D-13 
4-6 


6-15 
4-6 


6-10 
6-15 
4-6 


6-15 
4-6 


6~10 
4-6 


CC CO CO &w Tf co © 
t Les 
NM © FP Re SS 


nN 
t 
a 


6-19 


4-8 


Term 


TRANSFORM 


Undefined Format 


UNEQUALS 


UNIT, 
CLOSE 
USE 


Unqualified Data-name 


UNTIL 


UNTIL FIRST 


UP BY 


UPON 


UPSI 


USAGE, 
coding rules 
format of 
function of 
in class condition 
in data description 
index data items 


USE, 
coding rules 
format of 
function of 
DECLARATIVES 
labe! records 
OPEN 


User Program Switch Indicator, 
ACCEPT 
compiler option 
DISPLAY 
SYSSWCH-n 


USING, 
coding rules 
ENTRY 
format of 
function of 
in Procedure Division 
SORT 


Reference 


6.7.32 


5.2.1.4 


6.7.15 


6.7.5 


6.7.33 


2.2.1 


6.7.21 


6.7.12 


6.7.28 


6.7.8 


13 


See User Program 
Switch Indicator 


9.3.5 
5.3.5 
5.3.5 
6.7.15 
5.3 

2.2.1, 8.5 


6.7.33 
6.7.33 
6.7.33 
6.2 
5.2.1.3 
6.7.20 


6.7.8 
1.4 

6.7.8 
4.2.3 


6.1.1 
6.7.10 
6.1.1 
6.1.1 
6.1 
6.7.29 


5-18 
5-18 
5-18 
6-26 
5-10 
2-5, 8-3 


6-47 
6—46b 
6—-46b 
6-2 
5-6 
6-31 
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Term 


VALUE, 
coding rules 
condition-name entry 
data description 
format of 
function of 
independent entries 
Linkage Section 
REDEFINES 


VALUE OF, 
format of 
function of 
in File Description 


Variable-length Format 


VARYING 


Verbs, 
categorization of 
definition of 
listing of 


Word, COBOL, 
character used in 
definition of 


WORD, in OBJECT-COMPUTER 


Word, Reserved, 
definition of 
listing of 
types of 


UNIVAC 9400 COBOL 
SUPPLEMENTARY REFERENCE 


Reference 


5.3.8 
5.3.1 
5.3 

5.3.8 
5.3.8 
5.4.1 
5.9 

5.3.2 


5.2.1.5 
5.2.1.5 
5.2.1 


5.2.1.4 


6.7.21 


6.6 


2.2.2, 6.6 
6.7 


2.1.1 


2.2 


4.2.2 


2.2.2 


B.1 
2.2.2 


Term 


Word, User-supplied, 
definition of 
types of 


Word-string, 


in compiler-directing statement 


in imperative statement 


WORKING-STORAGE SECTION, 
definition of 
format of 
in Data Division 


WRITE, 
Access Type 2 
Access Type 3 
Access Type 4 
Access Type 5 
Access Type 6 
Access Type7 
coding rules 
format of 
function of 
OPEN 
SYSCHAN-t 


ZERO, in BLANK 
ZERO (ZEROS, ZEROES), 


elementary item category 
figurative constant 


Reference 


2.2.1 
2.2.1 


6.5.3 
6.5.1 


5.4 
5.4 
5.1 


D.6.2.1 
D.6.3.1 
D.6.2.2 
D.6.3.2 
D.6.4.1 
D.6.4.2 
6.7.34 
6.7.34 
6.7.34 
6.7.20 
4.2.3 


5.3.9 


6.7.17 
2.2.2 
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D-7 
D-10 
D-8 
D-11 
D-13 
D-14 
6—48 
6-48 
6—48 
6-31 
4~4 


